Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
brlogin.Navigate("http://leightosoft.uk.to/downloadmgr/login.php?username=" & txtUsername.Text & "&password=" & txtPassword.Text)
pblogin.Style = ProgressBarStyle.Marquee
txtUsername.Enabled = False
txtPassword.Enabled = False
End Sub
Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
Application.Exit()
End Sub
Private Sub brlogin_Navigated(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs) Handles brlogin.Navigated
MsgBox(brlogin.DocumentText)
pblogin.Style = ProgressBarStyle.Continuous
txtUsername.Enabled = True
txtPassword.Enabled = True
End Sub