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(lWindowHandle, "Open", Email, "", App.Path, &H1&)
Select Case lRetVal
Case 0
ShellExecuteEx = True
Case Else
ShellExecuteEx = False
End Select
End Function
 
Private Sub Ansehen_Click()
Shell "C:\Programme\Internet Explorer\iexplore.exe " & App.Path & "Start.htm"
End
End Sub
 
Private Sub Beenden_Click()
End
End Sub