Option Explicit

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 Command1_Click(Index As Integer)
  Select Case Index
    Case 1
      ShellExecute Me.hWnd, "Open", "http://www.vb-fun.de", _
          vbNullString, vbNullString, 1
    Case Else
      Unload Me
      End
  End Select
End Sub