Private bPlay as Boolean
 
Private Sub cmdPlay_Click()
   bPlay=true
   ' File laden
   Filgraph.RenderFile sPath
   ' Abspielvorgang starten
   Filgraph.Run
End Sub
 
Private Sub cmdStop_Click()
   If bPlay = true Then
     ' Abspielvorgang stoppen
     Filgraph.Stop
     bPlay = false
   Else
     Filgraph.Run
     bPlay = true
   End If
End Sub

Uli

Wissen ist Macht; nichts wissen macht auch nichts!