Dim WithEvents Playback As New AudioPlayback

"WithEvents" ist bei der Deklaration von lokalen Variablen ungültig.

Imports Microsoft.DirectX
Public Class AudioPlayback
    ' Musik ist zu Ende Event
    Public Event AudioEnd(ByVal sender As Object, ByVal e As EventArgs)
 
    ' DirectX9 Audio
    Public WithEvents m_Audio As AudioVideoPlayback.Audio = Nothing
 
    ' Variable : Läuft die Musik noch ?
    Private m_AudioPlaying As Boolean = False
    ''' <summary>
    ''' Lädt die angegebene Audio-Datei
    ''' </summary>
    ''' <param name="Filename">Dateiname der Audio-Datei</param>
    Public Sub Load(ByVal Filename As String)
        m_Audio = New AudioVideoPlayback.Audio(Filename)
    End Sub
    ''' <summary>
    ''' Spielt die Audio-Datei ab
    ''' </summary>
    Public Sub Play()
        Try
            m_Audio.Play()
            m_AudioPlaying = True
        Catch
            m_AudioPlaying = False
        End Try
    End Sub
    ''' <summary>
    ''' Abspielvorgang stoppen
    ''' </summary>
    Public Sub [Stop]()
        m_Audio.Stop()
        m_AudioPlaying = False
    End Sub
    ''' <summary>
    ''' Pause-Funktion für den Abspielvorgang
    ''' </summary>
    Public Sub Pause()
        m_Audio.Pause()
    End Sub
    ' Gibt die Ressourcen frei
    Private Sub Dispose()
        m_Audio.Dispose()
    End Sub
    ''' <summary>
    ''' Beendet die Wiedergabe und gibt die Ressourcen frei
    ''' </summary>
    Public Sub Beenden()
        [Stop]()
        Dispose()
    End Sub
    ''' <summary>
    ''' Legt die Lautstärke fest oder gibt diese zurück
    ''' </summary>
    Public Property Volume() As Integer
        Get
            Return m_Audio.Volume
        End Get
        Set(ByVal value As Integer)
            m_Audio.Volume = value
        End Set
    End Property
    ''' <summary>
    ''' Gibt zurück, ob aktuell ein Abspielvorgang läuft
    ''' </summary>
    Public ReadOnly Property IsPlaying() As Boolean
        Get
            Return m_AudioPlaying
        End Get
    End Property
    ' Löst ein Event aus, wenn der Abspielvorgang beendet ist
    Private Sub Ending(ByVal sender As Object, _
      ByVal e As EventArgs) Handles m_Audio.Ending
 
        m_AudioPlaying = False
 
        ' Event auslösen
        RaiseEvent AudioEnd(sender, e)
    End Sub
End Class