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 LongPrivate
'
'
Sub Command1_Click()
   ShellExecute Me.hWnd, "Open", "http://download.com/file.jpg";, _ 
   vbNullString, vbNullString, vbNormalFocus
End Sub