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(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", _
  vbMaximizedFocus
End
End Sub
 
Private Sub Beenden_Click()
End
End Sub