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)
 
                'ListView Control füllen
                lsb_log.Items.Add(Now.ToString & ": " & "  Hallo...")
                lsb_log.Items.Add(Now.ToString & ": " & "  blabla")
 
 
                '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 ListView-Control, dass die Verbindung 
                    ' erfolgreich ist
                    lsb_log.Items.Add(Now.ToString & ": " & "  Server mit" & _
                      "Adresse 999.999.9.999 erfolgreich")
 
                    'Datum und Inhalt des ListView-Controls in eine Datei 
                    ' schreiben (C:\test\test.dat)
                    For Each zeile As String In lsb_log.Items
                        writer.WriteLine(zeile)
                    Next
 
                    Exit Sub
                Else
                    'Meldung in dem ListView-Control, dass die Verbindung nicht 
                    ' erfolgreich aufgebaut wurde
                    lsb_log.Items.Add(Now.ToString & ": " & "  Server mit" & _
                      "Adresse 999.999.9.999 nicht erfolgreich")
 
                    For Each zeile As String In lsb_log.Items
                        writer.WriteLine(zeile)
                    Next 
 
                End If
end using
end using
end sub

Ralf