added this but stil not work odd
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
Private Sub mnuAbrirNavegador_Click(Index As Integer)
OpenUrl ("http://www.microsoft.com")
End Sub
Private Sub OpenUrl(ByVal url As String)
a = ShellExecute(0, "open", url, 0, 0, 1)
End Sub