Private Declare Function ShellExecute Lib "Shell32.dll" Alias _
    "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation _
    As String, ByVal lpFile As String, ByVal lpParameters _
    As String, ByVal lpDirectory As String, ByVal nShowCmd _
    As Long) As Long

Sub visit()
    ShellExecute X.hWnd, "Open", "http://www.google.de", _
    vbNullString, vbNullString, 1
End Sub

Private Sub mnuvisit_Click()
    visit
End Sub