[aporte] Abrir Pagina Web Desde Vb

[aldo1982]

' Written exclusively for VB Center by Marco Cordero.

#If Win32 Then

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

#Else

Private Declare Function ShellExecute Lib _
"shell.dll" _
(ByVal hwnd As Integer, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Integer) As Integer

#End If

Private Const SW_SHOWNORMAL = 1
Private Sub Picture1_Click()

Dim iret As Long

' open URL into the default internet browser

iret = ShellExecute(Me.hwnd, _
vbNullString, _
"http://www.LA_PAGINA_KE_TENGAS_GANAS.com", _
vbNullString, _
"c:\", _
SW_SHOWNORMAL)

End Sub

Private Sub Form_Load()

End Sub

Private Sub URL_Click()

Dim iret As Long

' open URL into the default internet browser

iret = ShellExecute(Me.hwnd, _
vbNullString, _
"http://www.LA_PAGINA_KE_TENGAS_GANAS.com", _
vbNullString, _
"c:\", _
SW_SHOWNORMAL)

End Sub