Insira esse código ao seu projeto:
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 Const conSwNormal = 1
Adicione o código no evento que deseja que acesse o site:
Call ShellExecute(hwnd, "open", "http://www.tornadodigital.com.br",
vbNullString, vbNullString, conSwNormal)
Altere o endereço do site descrito em vermelho para o que você deseja, não esqueça das aspas
Para baixar o Projeto Clique Aqui
© 2009 Todos os Direitos Reservados a Tornado Digital Página Principal - Dicas e Truques - Frases - Downloads - Forúm - Fale Conosco