Mixing and playing sounds with the Windows Media Player

Imports WMPLib
Public Class RunningSound

  Private mHostingDataRow As DataRow
  Private mSoundFilename As String
  Private WithEvents mPlayer As New WindowsMediaPlayerClass
  Private mPlayerControls As IWMPControls

  Public ReadOnly Property SoundFilename() As String
    Get
      Return mSoundFilename
    End Get
  End Property

  Public ReadOnly Property Player() As WindowsMediaPlayerClass
    Get
      Return mPlayer
    End Get
  End Property

  Public ReadOnly Property PlayerControls() As IWMPControls
    Get
      Return mPlayer.controls
    End Get
  End Property

  Public Sub New(ByVal HostingDataRow As DataRow, ByVal SoundsBasePath As String)
    Dim SoundFilename As String = SoundsBasePath & "\" & HostingDataRow("Filename")
    mHostingDataRow = HostingDataRow
    mSoundFilename = SoundFilename
    mPlayer.settings.autoStart = False
    Dim m As IWMPMedia = mPlayer.newMedia(SoundFilename)
    mPlayer.currentMedia = m
    AddHandler mPlayer.PlayStateChange, AddressOf mPlayer_PlayStateChange
  End Sub

  Public Overrides Function ToString() As String
    Dim result As String
    Select Case mPlayer.playState
      Case WMPPlayState.wmppsPlaying
        result = "► "
      Case WMPPlayState.wmppsPaused
        result = "# "
      Case Else
        result = ""
    End Select
    If mPlayer.settings.getMode("LOOP") Then
      result &= "∞"
    End If
    Return result
  End Function

  Private Sub mPlayer_PlayStateChange(ByVal NewState As Integer)
    ' To update the Status on grid
    mHostingDataRow.Table.AcceptChanges()
  End Sub

End Class