[VISUAL BASIC 6.0]Abrindo uma Página da Internet

[ander 2]

Primeiro: Declare isto

 

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

 

Segundo: Crie um botão

Terceiro: Coloque este código no botão

 

Private Sub Command1_Click()

Dim shell, cont As Long

cont = 0

Do

shell = ShellExecute(Me.hwnd, vbNullString, "Página da Internet", vbNullString, "c:\", SW_SHOWNORMAL)

cont = cont + 1

Loop Until cont = 1

End Sub

 

 

 

Isso era uma duvida minha.

 

Creditos : emyne

postagem ander