Visual Basic veriyi düzenli olarak dışarı aktarma

 
    
  Imports System.Collections.Generic 
  Imports System.Drawing 
  Imports System.Windows.Forms 
  Imports System.IO 
    
  Public Partial Class MainForm 
  	Inherits Form 
  	Public Sub New() 
    
  		InitializeComponent() 
  	End Sub 
  	Private Sub Button1Click(sender As Object, e As EventArgs) 
  		timer1.Interval = 1000 
  		timer1.Start() 
   
  	End Sub 
   
  	Private file As New StreamWriter("C:\dosya.txt") 
  	Private Sub Timer1Tick(sender As Object, e As EventArgs) 
  		file.WriteLine(DateTime.Now) 
   
  	End Sub 
  	Private Sub Button2Click(sender As Object, e As EventArgs) 
  		timer1.[Stop]() 
  		file.Flush() 
  		file.Close() 
  	End Sub 
  End Class