Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
    System.EventArgs) Handles Timer1.Tick
 
        Using fs As New FileStream("C:\test\log.dat", FileMode.OpenOrCreate, _
                 FileAccess.Write, _
                 FileShare.None)
            Using writer As New StreamWriter(fs)
 
                'ListBox Control füllen
                lsb_log.Items.Add(Now.ToString & ": " & "  halleluja...")
                transfer = True
                lsb_log.Items.Add(Now.ToString & ": " & "  dumdidum")
 
 
                'Ping Befehl durchführen und mit einer if-Anweisung verknüpfen
                If My.Computer.Network.Ping(lbl_Server_IP2.Text) Then
 
 
                    'Datum und Uhrzeit des letzten Transfers angeben
                    lbl_Datum.Text = DateTime.Now
 
                    'Meldung in dem ListBox-Control, dass die Verbindung 
                    ' erfolgreich ist
                    lsb_log.Items.Add(Now.ToString & ": " & "  Verbindung " & _
                       lbl_Server_IP2.Text & " erfolgreich")
 
 
 
                    ListBox1.Items.Clear()
                    listFTP(TextBox1.Text, TextBox2.Text, TextBox3.Text)
 
 
                    ListBox1.SelectedIndex = 0 'Erste Zeile in Listbox markieren
 
                    For i = 0 To ListBox1.Items.Count - 1
 
                        If Path.GetExtension(ListBox1.SelectedItem.ToString()) _
                          = ".txt" Then
                            ListBox2.Items.Add(ListBox1.SelectedItem.ToString())
                        End If
 
                        Try
                            'Wenn die letzte Zeile erreicht ist oder gar kein 
                            ' Eintrag existiert
                            'darf die nächste Zeile nicht selektiert werden da 
                            ' sonst ein Fehler
                            'ausgelöst wird
                            ListBox1.SelectedIndex += 1
                        Catch
                            'Nichts tun
                        End Try
 
                    Next
 
 
                    ListBox2.SelectedIndex = 0
 
                    For i = 0 To ListBox2.Items.Count - 1
 
                        'Wenn Datei existiert führt das zu einem Absturz, 
                        ' deshalb Datei ggf. vorher
                        'vom lokalen Datenträger löschen
                        If IO.File.Exists("C:\Testordner\" & Path.GetFileName( _
                          ListBox2.SelectedItem.ToString)) = True Then
                            IO.File.Delete("C:\Testordner\" & Path.GetFileName( _
                            ListBox2.SelectedItem.ToString))
                        End If
 
 
                        My.Computer.Network.DownloadFile("ftp://" & _
                          lbl_Benutzername.Text & ":" & lbl_Serverkennwort.Text _
                          & "@" & lbl_Server_IP2.Text & "/" & _
                          lbl_Serverordner.Text & "/" & Path.GetFileName( _
                          ListBox2.SelectedItem.ToString), "C:\Testordner\" & _
                          Path.GetFileName(ListBox2.SelectedItem.ToString))
 
                        Try
                            ListBox2.SelectedIndex += 1
                        Catch
                            'Letzter Datensatz erreicht, Abbruch
                            MsgBox("Es wurden alle Dateien heruntergeladen!")
                        End Try
 
                    Next
 
 
                    'In die ListBox schreiben
                    lsb_log.Items.Add(Now.ToString & ": " & "  Transfer" & _
                                          " erfolgreich")
 
                    'Datum und Inhalt des ListView-Controls in eine Datei 
                    ' schreiben (C:\test\log.dat
                    For Each zeile As String In lsb_log.Items
                        writer.WriteLine(zeile)
                    Next
 
                    transfer = False
 
                    Exit Sub
                Else
                    'Meldung in dem ListView-Control, dass die Verbindung nicht 
                    ' erfolgreich aufgebaut wurde
                    lsb_log.Items.Add(Now.ToString & ": " & "  Test nicht" & _
                      "nicht erfolgreich")
 
                    For Each zeile As String In lsb_log.Items
                        writer.WriteLine(zeile)
                    Next
 
                End If
            End Using
        End Using
 
    End Sub