Private Filgraph As FilgraphManager
 
Private Sub Form_Load()
  Set Filgraph = New FilgraphManager
End Sub
 
Private Sub SetSound(ByVal datei As String)
  Filgraph.Stop
  Set Filgraph = Nothing
  Set Filgraph = New FilgraphManager
  Filgraph.RenderFile datei
End Sub