Thanks for your reply. I'm putting together a complete program where the lesson will be displayed. This what I have so far(The Code Is Below).
The problem that I am now having is the lesson just continues to loop and when I press stop it just goes back to the beginning and starts over again.
Also, there is a delay when it starts to replay.
Thanks again...Ron L (rluka)



Here is the code:

Private Sub Command1_Click()
MMControl1.FileName = (App.Path & "\SlapBass1.mpg")
MMControl1.hWndDisplay = Picture1.hWnd
MMControl1.Command = "Open"
End Sub

Private Sub Command2_Click()
MMControl1.FileName = (App.Path & "\SlapBass2.mpg")
MMControl1.hWndDisplay = Picture1.hWnd
MMControl1.Command = "Open"
End Sub

Private Sub Command3_Click()
MMControl1.FileName = (App.Path & "\SlapBass3.mpg")
MMControl1.hWndDisplay = Picture1.hWnd
MMControl1.Command = "Open"
End Sub

Private Sub Command4_Click()
MMControl1.FileName = (App.Path & "\SlapBass4.mpg")
MMControl1.hWndDisplay = Picture1.hWnd
MMControl1.Command = "Open"
End Sub

Private Sub Command5_Click()
MMControl1.FileName = (App.Path & "\Slapbass5.mpg")
MMControl1.hWndDisplay = Picture1.hWnd
MMControl1.Command = "Open"
End Sub

Private Sub Command6_Click()
MMControl1.FileName = (App.Path & "\Slapbass6 .mpg")
MMControl1.hWndDisplay = Picture1.hWnd
MMControl1.Command = "Open"
End Sub

Private Sub MMControl1_PlayClick(Cancel As Integer)
1 MMControl1.Command = "Open"
MMControl1.Notify = True
MMControl1.Command = "play"
DoEvents
Do
DoEvents
Loop Until MMControl1.Mode = mciModeStop
MMControl1.Command = "Close"
GoTo 1
End Sub

Private Sub MMControl1_StatusUpdate()
Dim strMode As String
strMode = ""

Select Case MMControl1.Mode

Case mciModeReady
strMode = "Ready"

Case mciModeStop
strMode = "Stopped"

Case mciModeSeek
strMode = "Seeking"

Case mciModePlay
strMode = "Playing"

Case mciModePause
strMode = "Paused"

End Select

Label1.Caption = strMode

End Sub

Private Sub Form_Unload(Cancel As Integer)
MMControl1.Command = "Stop"
MMControl1.Command = "Close"

End Sub