Private Sub Timer1_Timer()
Dim pPOS As IMediaPosition
Set pPOS = Filgraph
  If pPOS.CurrentPosition = pPOS.Duration Then
    Set Filgraph = Nothing
    Set VideoW = Nothing
    Timer1.Enabled = False
  End If
End Sub

  Set VideoW = Filgraph
  With VideoW
    .Caption = "Fenstertitel"
    .Left = 0
    .Top = 0
    .FullScreenMode = False
 
    ' ...
  End With

Wissen ist Macht nichts wissen macht auch nichts