Microsoft WebBrowser Control - Переход на страницу

По материалам: http://msdn.microsoft.com/ru-ru/library/system.windows.forms.webbrowser.aspx?cs-save-lang=1&cs-lang=vb#code-snippet-2

Private Sub Form_Current()
'es - 15.11.2012
'---------------------------------------------------------------------------------------
Dim IE As Object
On Error GoTo Form_Current_Err

    Set IE = Me!objWebBrowser.Object
    With IE
        .Navigate APageLink
    End With
Form_Current_Bye:
    SendKeys vbTab 'Для прокрутки в браузере
    Set IE = Nothing
    Exit Sub

Form_Current_Err:
    MsgBox "Error " & Err.Number & vbCrLf & Err.Description & vbCrLf & _
    "in procedure Form_Current", vbCritical, "Error!"
    Resume Form_Current_Bye

End Sub