Dim hMediaPlayer As MediaPlayer hMediaPlayer = New MediaPlayer ( [ Parent As MediaContainer, Type As String, Polling As Integer ] ) As "event name"
Create a new MediaPlayer.