Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Timer1.Tick
        'Deklaration der Variablen
        Dim FStreami As New IO.FileStream("C:\logfiles\logs.dat", _
          IO.FileMode.OpenOrCreate, IO.FileAccess.Write, IO.FileShare.Write)
        FStreami.Close()
        Dim sFilePathe As String = "C:\logfiles\logs.dat"
        Dim streami As IO.FileStream = New IO.FileStream(sFilePathe, _
          IO.FileMode.Open)
        Dim SWriter As IO.StreamWriter = New IO.StreamWriter(streami, _
        System.Text.Encoding.Default)
 
 
        'ListView Control füllen
        lsb_log.Items.Add(lbl_Systemdatum.Text & "   " & lbl_Systemuhrzeit.Text _
          & ":" & "  blabla...")
        lsb_log.Items.Add(lbl_Systemdatum.Text & "   " & lbl_Systemuhrzeit.Text _
        & ":" & "  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(lbl_Systemdatum.Text & "   " & _
              lbl_Systemuhrzeit.Text & ":" & "  blabla")
 
            'Datum und Inhalt des ListView-Controls in eine Datei schreiben ( 
            ' C:\logfiles\logs.dat)
            For Each zeile As String In lsb_log.Items
                SWriter.WriteLine(DateTime.Now & ";" & zeile)
            Next
 
            SWriter.Close()
 
            Exit Sub
        Else
            'Meldung in dem ListView-Control, dass die Verbindung nicht 
            ' erfolgreich aufgebaut wurde
            lsb_log.Items.Add("blabla")
 
            For Each zeile As String In lsb_log.Items
                SWriter.WriteLine(DateTime.Now & ";" & zeile)
            Next
 
            SWriter.Close()
 
        End If
    End Sub