Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim fs = New FileStream("C:\Program Files\SLAClient\url.txt", FileMode.Open, FileAccess.Read)
Dim d As New StreamReader(fs)
d.BaseStream.Seek(0, SeekOrigin.Begin)
While d.Peek() > -1
TextBox1.Text &= d.ReadLine()
End While
d.Close()
WebBrowser1.Navigate(TextBox1.Text)
End Sub