Processing Script Commands in Windows Media Video Playback Example for Visual Basic

The following example shows how to handle script commands from the media event of a Play control

Private Sub play_MediaEvent (ByVal EventCode As Long, ByVal Param1 As Long, ByVal Param2 As Long)
 >Select Case EventCode
     Case ltmmEC_OLE_EVENT
         txtScriptType.Text = CStr(Param1)
         txtScriptCommand.Text = CStr(Param2)
End Select