Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Timer1.Tick
        Dim i As Integer
 
        ' Com-Ports suchen und laden
        If FlagsConnect = 0 And FlagsComFound = 0 Then
            Me.comboPort.Items.Clear()
            For i = 0 To My.Computer.Ports.SerialPortNames.Count - 1
                Me.comboPort.Items.Add((My.Computer.Ports.SerialPortNames.Item( _
                  i) & "     ").Substring(0, 5).Trim)
            Next
            Me.comboPort.Sorted = True
            Dim LoadComPortDesc As New System.Threading.Thread(AddressOf _
              LoadComPortDescription)
            LoadComPortDesc.Start()
        End If
 
        ' Daten an Pic senden, wenn diese nicht gesendet werden können 
        ' Verbindung trennen
        If FlagsConnect = 1 Then
            Try
                COM.Write(Data, 0, 3)
            Catch ex As Exception
                Disconnect()
            End Try
        End If
 
        ' wenn richtiger COM Port gefunden, Verbindung aufbauen
        If FlagsComFound = 1 And FlagsConnect = 0 Then
            Connect()
        End If
 End Sub