Public Class Form1
    Inherits System.Windows.Forms.Form
    Dim frm3 As New Form2




    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       
        Form2.Show()


    End Sub

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


    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim frm2 As New Form2
        frm2.Show()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        frm3.Show()

    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        loaded = True
    End Sub

    'Public Delegate Sub navigatecallback()
    'Public Sub navigate()
    '    If Me.WebBrowser1.InvokeRequired Then
    '        Me.WebBrowser1.Invoke(New navigatecallback(AddressOf navigate))

    '       Else
    '           Me.WebBrowser1.Navigate(site1)
    '           System.Windows.Forms.Application.DoEvents()
    '       End If
    '   End Sub


    '  Public Sub dowork()
    '      navigate()
    ' End Sub

    Private Sub WebBrowser1_Navigated(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs) Handles WebBrowser1.Navigated
        loaded = False
    End Sub

    Private Sub WebBrowser1_Navigating(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatingEventArgs) Handles WebBrowser1.Navigating
        loaded = False
    End Sub
End Class