Dim sPath As String
 
  ' Pfad zur Datei, die abgespielt werden soll
  sPath = "c:\windows\clock.avi"
 
  ' File laden
  Filgraph.RenderFile sPath
 
  ' Eigenschaften des Ausgabefenster
  Set VideoW = Filgraph
  With VideoW
    .Caption = "Fenstertitel"
    .Left = 0
    .Top = 0
    .FullScreenMode = False
    ' ...
  End With
 
  ' Abspielvorgang starten
  Filgraph.Run
 
  ' Objekt zerstören
  Set VideoW = Nothing