Dim WithEvents ctlWebBrowser As VBControlExtender

Private Sub ctlWebBrowser_ObjectEvent(Info As EventInfo)
    Select Case Info.Name
        Case "BeforeNavigate2"
            Me.Caption = "Load... " & Info.EventParameters("URL").Value
        Case "FileDownload"
            
        Case "NavigateComplete2"
            Me.Caption = "Save... " & Info.EventParameters("URL").Value
        Case Else

    End Select
End Sub

Private Sub Form_Load()
    Set ctlWebBrowser = Controls.Add("Shell.Explorer.2", "WB1", Me)

    ctlWebBrowser.Visible = True
    ctlWebBrowser.object.Navigate "http://ya.ru"
   
End Sub