Private Sub Document_New()
  'Dokument ffnen
  On Error GoTo errMsg
  'MediaView-Dokument hier fest vorgegeben
  '(Pfad/Dateiname optional ndern)
  Medview1.MediaViewTitle = "C:\Programme\MView\DOC\mvdoc141.m14"
  Exit Sub
errMsg:
  'Dokument nicht vorhanden
  MsgBox "Die Datei C:\Programme\MView\DOC\mvdoc141.m14 konnte " + _
    "nicht geffnet werden. In diesem Programm ist der Pfad im Quelltext " + _
    "definiert.", vbExclamation, "MediaView-Dokument nicht vorhanden"
  Exit Sub
End Sub

Private Sub btnPlus_Click()
  'zurckblttern, sofern mglich
  On Error Resume Next
  Medview1.NextBrowseTopic
End Sub

Private Sub btnMinus_Click()
  'weiterblttern, sofern mglich
  On Error Resume Next
  Medview1.PreviousBrowseTopic
End Sub

Private Sub btnPrint_Click()
  'aktuelles Thema Drucken
  On Error Resume Next
  Medview1.PrintTopic Medview1.TopicIndex
End Sub

Private Sub btnStart_Click()
  'Startseite anzeigen
  Medview1.JumpToContents
End Sub
