html page from a button click

[uma2001]

Hai friends,
I am having a command button in a form.
In the click event of that command button, I want to take the user to a Html page.
Will anybody help me in this coding.
Thanx in advance.

[peet]

Option Explicit
 
 
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
                (ByVal hwnd As Long, ByVal lpszOp As String, _
                 ByVal lpszFile As String, ByVal lpszParams As String, _
                 ByVal LpszDir As String, ByVal FsShowCmd As Long) _
                 As Long
Private Const SW_SHOWNORMAL = 1
 
Private Sub Command1_Click()
    'Open a web page
    Dim l As Long
    l = ShellExecute(Me.hwnd, "Open", "http://www.vbworld.com", "", "C:\", SW_SHOWNORMAL)
End Sub