Option Explicit
' Benötigte Objektvariablen
Private VideoW As IVideoWindow
Private Filgraph As FilgraphManager
Im Form_Load Ereignis wird "Filgraph" instanziert:
Private Sub Form_Load()
' FilgraphManager instanzieren
Set Filgraph = New FilgraphManager
End Sub

Private Sub Command1_Click()
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
End Sub
Private Sub Command2_Click()
' Abspielvorgang stoppen
Filgraph.Stop
End Sub

-------------------------
AMD 1800+ | 1 GB SDRAM | Win XP Home SP2 | MSI Geforce 7600GS 256 MB
Visual Basic 2005 | MVS 6