| Private Sub Command1_Click()
Open "MyFile.txt" For Output As #1
‘ MyFile.Txt dosyası açılır.
Print #1, Text1.Text
‘ Textbox’a bilgiler yazılır.
Close #1
End Sub
Private Sub Command2_Click()
Text1.Text = "" ‘ Textbox’ı temizle
Devamını Görmek İçin Üye Girişi Yapmanız Gerekmektedir. | 
