Declare Function mciSendString& Lib "MMSYSTEM" (ByVal lpstrCommand$, ByVal lpstrReturnStr As Any, ByVal wReturnLen%, ByVal hCallBack%)
£§Add the code below to appropriate routines
Sub cmdPlay_Click()
Dim lRet As Long
Dim nCurrentTrack As Integer
£§Open the device
lRet = mciSendString("open cdaudio alias cd wait", 0&, 0, 0)
£§Set the time FORMat to Tracks (default is milliseconds)
lRet = mciSendString("set cd time FORMat tmsf", 0&, 0, 0)
£§Then to play from the beginning
lRet = mciSendString("play cd", 0&, 0, 0)
£§Or to play from a specific track, say track 4
nCurrentTrack = 4
lRet = mciSendString("play cd from" & Str(nCurrentTrack), 0&, 0, 0)
End Sub
£§ Remember to Close the device when ending playback
Sub cmdStop_Click()
Dim lRet As Long
£§Stop the playback
lRet = mciSendString("stop cd wait", 0&, 0, 0)
DoEvents £§Let Windows process the event
£§Close the device
lRet = mciSendString("close cd", 0&, 0, 0)
End Sub