1.Dim fs As New FileStream("C:\logfile.log", FileMode.Append, FileAccess.Write)
2.Dim s As New StreamWriter(fs, System.Text.Encoding.Default)
3.s.BaseStream.Seek(0, SeekOrigin.End)
4.s.WriteLine(txt_username_tooltip.Text & " " & Date.Now & " Logout")
5.s.Close()
