Public Sub New()
InitializeComponent()
Dim strPath As String = "\ThaiCreate\win.txt"
Dim StrRer As StreamReader
Dim strLine As String
StrRer = File.OpenText(strPath)
While Not (StrRer.EndOfStream)
strLine = StrRer.ReadLine().ToString()
Me.txtShow.Text += strLine & vbCr & vbLf
End While
StrRer.Close()
End Sub