Sub starting()
   Dim frm As New Form

        gwb = New Gecko.GeckoWebBrowser

        gwb.Size = New Size(500, 500)
        gwb.Location = New Point(0, 0)
        gwb.DisableWmImeSetContext = False
        gwb.UseHttpActivityObserver = False
        gwb.Name = "gwb"
        gwb.Visible = True
        gwb.CreateControl()

     
        frm.Controls.Add(gwb)
        frm.Show()
        Do
            Application.DoEvents()
            Threading.Thread.Sleep(10)
        Loop
    End Sub