risolto... grazie lo stesso...

la sub è:

codice:
    Public Sub ApriBrowser(ByVal strUrl As String, Optional ByVal blToolBar As Boolean = False)
        Dim Web As SHDocVw.InternetExplorerClass
        Dim Width As Integer, Height As Integer, Top As Integer, Left As Integer
        Web = New SHDocVw.InternetExplorerClass
        Width = Screen.PrimaryScreen.Bounds.Width * 0.9
        Height = Screen.PrimaryScreen.Bounds.Height * 0.9
        Left = Screen.PrimaryScreen.Bounds.Width * 0.05
        Top = Screen.PrimaryScreen.Bounds.Height * 0.05
        With Web
            .Width = Width
            .Height = Height
            .Left = Left
            .Top = Top
            .Resizable = False
            .MenuBar = False
            .StatusBar = False
            .AddressBar = False
            .ToolBar = blToolBar
            .Visible = True
            .Navigate(strUrl)
        End With
        Web = Nothing
    End Sub
nei riferimento ho aggiunto il componente ShDocVw...