Option Explicit On : Option Strict On
 
Imports QuartzTypeLib
 
Public Class Form1
 
    ' Benötigte Objektvariablen
    Private Filgraph As New FilgraphManager
 
    Private MediaPath As String
    Private IsRunning As Boolean
 
    Private Sub Form1_FormClosing(ByVal sender As Object, _
        ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles _
        Me.FormClosing
        Filgraph.Stop()
        Filgraph = Nothing
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        ' Pfad zur MP3-Datei, die abgespielt werden soll
        MediaPath = "Installationspfad der Mediadatei"
 
        With timMediaRestart
            .Interval = 20000 'Länge des MP3-Files in Millisekunden (+ einige 
            ' Sek Pause)
            .Enabled = True
            'Media-Datei Starten 
            Call timMediaRestart_Tick(Nothing, Nothing)
        End With
    End Sub
 
    Private Sub timMediaRestart_Tick _
    (ByVal sender As System.Object, ByVal e As System.EventArgs) _
    Handles timMediaRestart.Tick
        '(Neu)start des Mediafiles 
        If IsRunning Then Filgraph.Stop()
        Filgraph.RenderFile(MediaPath)
        Filgraph.Run() : IsRunning = True
    End Sub
End Class