skoro na konci :

  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
    Private Sub Navigate(ByVal address As String)

    End Sub

    Private Sub WebBrowser1_Navigating(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatingEventArgs) Handles WebBrowser1.Navigating
      [b]  If address.Equals("http://bhacks-registration.atwebpages.com/welcome.php") Then MsgBox("adas")[/b]
    End Sub
End Class