Shell Execute

'Shell Execute

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



Const SW_SHOWNORMAL = 1



Private Sub Form_Load()

'Visit my Blog

ShellExecute Me.hwnd, vbNullString, "http:\\RockessAlpha.blogspot.com", _

vbNullString, "C:\", SW_SHOWNORMAL

End Sub