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
Public Function ShellExecuteEx(ByVal lWindowHandle As Long, ByVal Email As _
String) As Boolean
Dim lRetVal As Long
lRetVal = ShellExecute(Me.hwnd, "Open", App.Path & "\Start.htm", "", App.Path, _
  &H1&)
Select Case lRetVal
Case 0
ShellExecuteEx = True
Case Else
ShellExecuteEx = False
End Select
End Function
 
Private Sub Ansehen_Click()
ShellExecute(Me.Hwnd, "Open", App.Path & "\Start.htm", "", App.Path, &H1&)
End
End Sub
 
Private Sub Beenden_Click()
End
End Sub