Highlights
All Snippets
Top 100 Snippets
Librarians
gbCodeLib

By Language
VB6
JavaScript
Perl
HTML
SQL
Java
DOS

GBIC >> Source Code >> Visual Basic >> Snippet

Open a web page in default browser


'Put this In the Declare section of the project
Public 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
Public Const SW_ShowNormal = 1

'put this where you can execute it, such as in a button click event
Dim iReturn As Long
iReturn = ShellExecute(frmMain.hwnd, "Open" , " http://www.garybeene.com " , vbNullString, vbNullString, SW_ShowNormal)