Dim sstat As New System.IO.StreamWriter(MMI.SettingsDIR & "\Stat.txt", True, _
  System.Text.Encoding.Default)

    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        Me.Refresh()
        Me.Timer1.Start()
        hit = 100
        If MMI.Einstellungen(1).StatistikFile = True Then
            sStat.WriteLine(Now.ToString() & " - " & hit)
            sStat.Close()
        End If
    End Sub

mfg
rt