Mở một trang web từ chương trình

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 Sub Form_Load()
   Dim R As Long
   R = ShellExecute(Me.hwnd, "Open", "www.hn4u.com", _
   vbNullString, App.Path, vbNormalFocus)
End Sub