[FONT=Verdana][FONT=Tahoma][SIZE=2][FONT=Verdana][SIZE=2]Declaração:[/SIZE][/FONT]
[/SIZE][/FONT][/FONT][B]Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, _[/B]
[B] ByVal lpOperation As String, _[/B]
[B] ByVal lpFile As String, _[/B]
[B] ByVal lpParameters As String, _[/B]
[B] ByVal lpDirectory As String, _[/B]
[B] ByVal nShowCmd As Long) As[/B] [B]Long[/B]
Uso:
[B]ShellExecute Me.hwnd, "open", "[/B][URL="http://www.google.pt"][B]http://www.google.pt[/B][/URL][B]", _[/B]
[B] vbNullString, vbNullString, 0[/B]