I have got some problems with making a cd player. But I do not know what it is.

the code is as follows:

Private Sub cmdSpill_Click()
mmcSpiller.Command = "play"

End Sub

Private Sub Form_Load()
mmcSpiller.Notify = True

mmcSpiller.Wait = True
mmcSpiller.Shareable = False
mmcSpiller.DeviceType = "cdaudio"


End Sub

Private Sub Form_Unload(Cancel As Integer)
mmcSpiller.Command = "close"

End Sub

Private Sub mmcSpiller_StatusUpdate()
lblnr.Caption = mmcSpiller.Track
lblAntspor.Caption = mmcSpiller.Tracks
lblposisjon.Caption = mmcSpiller.TrackPosition
lblLengde.Caption = mmcSpiller.TrackLength

End Sub