Reply To: ghostriderofthenite Ultimate Bot project

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