Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
Me.Hide ' or Me.Enabled = False
End Sub
Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
Me.Show 'Me.Enabled = True
End Sub
This code shows ur form is disabled or hidden until the page is loaded.
Also try the commented statements
Unsolved 
