Public Class Form1
 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  Dim MyFile As String, UserName As String
  MyFile = "c:\start_rec.txt"
  UserName = InputBox("請輸入你的名字", , "客人")
  FileOpen(1, MyFile, OpenMode.Append)
  WriteLine(1, "日期：" & Date.Today, "時間：" & TimeOfDay, "使用者：" & UserName)
  FileClose(1)
 End Sub

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  Dim MyFile, Recoder As String
  ListBox1.Items.Clear() '清除列示方塊內容
  MyFile = "c:\start_rec.txt"
  FileOpen(1, MyFile, OpenMode.Input)
  Do
   Recoder = LineInput(1)
   ListBox1.Items.Add(Recoder)
  Loop Until EOF(1)
  FileClose(1)
 End Sub 
End Class