Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Timer1.Tick
 
        If My.Computer.FileSystem.DirectoryExists("C:\Test") = False Then
            My.Computer.FileSystem.CreateDirectory("C:\Test")
        End If
 
 
        Using fs As New FileStream("C:\Test\test.txt", FileMode.OpenOrCreate, _
                 FileAccess.Write, _
                 FileShare.None)
            Using writer As New StreamWriter(fs)
 
                'ListBox Control füllen
                ListBox1.Items.Add(Now.ToString & ": " & "  Start ")
                transfer = True
                ListBox1.Items.Add(Now.ToString & ": " & "  Prüfen ")
 
 
                'Ping Befehl durchführen und mit einer if-Anweisung verknüpfen
                If My.Computer.Network.Ping(Label1.Text) Then
 
 
 
                    'Meldung in dem ListBox-Control, dass die Verbindung 
                    ' erfolgreich ist
                    ListBox1.Items.Add(Now.ToString & ": " & "  Ping" & _
                      "Adresse " & Label1.Text & " erfolgreich")
 
 
                    'In die ListBox schreiben
                    ListBox1.Items.Add(Now.ToString & ": " & "  Transfer" & _
                                          " Adresse " & Label1.Text & "" & _
                                          "erfolgreich")
 
                    For Each zeile As String In ListBox1.Items
                        writer.WriteLine(zeile)
                    Next
 
 
                    transfer = False
 
 
 
                    'Meldung in dem ListView-Control, dass die Verbindung nicht 
                    ' erfolgreich aufgebaut wurde
                    ListBox1.Items.Add(Now.ToString & ": " & "  Server" & _
                      "Adresse " & (Label1.Text) & " nicht erfolgreich")
 
                    transfer = False
 
                    For Each zeile As String In ListBox1.Items
                        writer.WriteLine(zeile)
                    Next
 
 
 
 
 
 
 
                    Dim mylist As New List(Of String)
 
                    For i As Int32 = ListBox1.Items.Count - 1 To 0 Step -1
                        mylist.Add(CStr(ListBox1.Items.Item(i)))
                    Next
 
 
                    Dim swWriter As IO.StreamWriter = New StreamWriter( _
                      "C:\Test\test.txt", False)
 
                    mylist.Sort()
                    mylist.Reverse()
 
                    For iCount As Int32 = 0 To mylist.Count - 1
                        swWriter.WriteLine(mylist.Item(iCount))
                    Next
 
                    swWriter.Close()
 
 
 
 
 
 
                End If
 
            End Using
        End Using
    End Sub
 
 
End Class