Как бороться с утечкой памяти в приложении при его длительной работе

Function Read****() As Integer
 
        Dim Success As Boolean
        Dim BytesWritten, BytesRead As Int32
        Dim bout() As Byte = {&HFF, &H31} '&H31=49' запрос
        Dim bin() As Byte = {0, 0, 0, 0, 0, 0, 0, 0, 0} ' ответ
 
        Try
            ' очистка очереди чтения и записи
            PurgeComm(Port****.Ptr, PURGE_RXCLEAR)
            PurgeComm(Port****.Ptr, PURGE_TXCLEAR)
 
            ' Запись данных в порт.
            Success = WriteFile(Port****.Ptr, bout, bout.Length, BytesWritten, IntPtr.Zero)' винапишная функция записи в com-порт
            If Success = False Then
                'Throw New CommException("Не удается записать данные в порт")
                PictureBox1.BackColor = Color.Red
                Return -1
            End If
 
            Success = ReadFile(Port****.Ptr, bin, bin.Length, BytesRead, IntPtr.Zero)' винапишная функция чтения из com-порта
            If Success = False Then
                'Throw New CommException("Не удается прочитать данные из порта")
                PictureBox1.BackColor = Color.Red
                Return -1
            End If
        Catch ex As Exception
            PictureBox1.BackColor = Color.Red
            Return -1
        End Try
        If (bin(0) <> &H40 Or BytesRead <> 9) Then '
            TextBox1.Text = ""
            For i As Integer = 0 To 8
                TextBox1.Text += Hex(bin(i)) + " " ' этот текстбокс скрыт от юзера, в режиме отладки я вижу его
            Next
 
            PictureBox1.BackColor = Color.Blue
            Return -1
        Else
            PictureBox1.BackColor = Color.Green
 
        End If
 
        Dim t_ves As String = ""
 
        Try
            t_ves = Encoding.ASCII.GetString(bin, 2, 6)
        Catch
            PictureBox1.BackColor = Color.Black
            Return -1
        End Try
 
        ' запись в базу текущих показателей, чтоб другие юзеры видели и им было радостно
        Try
            cmd.CommandText = "UPDATE IndVes SET " & "Ves='" & t_ves & "', LastTime='" & Format(Now, "yyyy-MM-dd HH:mm:ss") & "' WHERE ID=1" 
            cmd.Prepare()
            cmd.ExecuteNonQuery()
        Catch
            LabelNoConDB.Visible = True
            PictureBox1.BackColor = Color.DarkViolet
            Return -1
        End Try
        PictureBox1.BackColor = Color.Green
        Return t_ves
 
    End Function

Private Sub Timer****_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer****.Tick
        If (MyDebug) Then
            TempVes**** = IIf(TempVes**** > 30000, 0, TempVes**** + 150)
            tbVes****.Text = CStr(TempVes****)
        End If
        If (IsConnectBD) Then
            LabelNoConBD.Visible = False
            If (MyDebug) Then
                TempVes**** = IIf(TempVes**** > 30000, 0, TempVes**** + 150)
                tbVes****.Text = CStr(TempVes****)
            Else
                Dim ves As Integer
                ves = Read****()
                Application.DoEvents()
                If (ves = -1) Then
                    'LabelNoConBD.Visible = True
                    'tbVes****.Text = "0" ' чтоб не смущать юзера
                Else
                    tbVes****.Text = ves
                End If
            End If
        Else
            LabelNoConBD.Visible = True
        End If
        If (tbDok****.Text <> "" And tbDok****.Text <> "0") Then ' если есть по документу
            ' foo = тара + вес по документу - вес на весах
            'If (WithOPC) Then
            '    Dim foo As Integer = CInt(tbDok****.Text) + CInt(tbTara****.Text) - CInt(tbVes***.Text)
            '    If (foo <= StopVes****) Then WriteOPC(1, True) 'Выключаем
            'End If
        End If
 
        Try ' фактический вес
            Dim vf As Integer = CInt(tbVes****.Text) - CInt(tbTara****.Text)
            tbDelta****.Text = IIf(vf > 0, CStr(vf), "0")
        Catch
        End Try
    End Sub