I have a command button in my form and I want to know how to go to a website when a user clicks on the command button.

Public Sub button_click()

www.website.com

End sub

What is the syntax or command can I use?

Thanks

Hello,

check this..

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 SW_SHOWNORMAL = 1

Private Sub Command1_Click()
ShellExecute Handle, "open", "http://www.yahoo.com", "", "", SW_SHOWNORMAL
End Sub

Add a button to the form and copy and paste the code in the code window.
It opens explorer with the weblink what you give there.

Hope this helps.


With Regards,
Raghavendra Mudugal

Hi Raghavendra,

I copied and pasted your code and I am getting a compile error of " Only comments may appear after End Sub, End Function, or End Property. This error is happening on the Declare Function ShellExecute.

I must be doing something wrong.

I see where I went wrong. Thanks for all your help.