Public Function Pause() As Boolean
Dim MCIReturn As Long
MCIReturn = mciSendString("pause ALIAS", 0, 0, 0)
Pause = (MCIReturn = 0)
If Pause Then Timer1.Enabled = False
End Function

Public Function Play() As Boolean
Dim MCIReturn As Long
MCIReturn = mciSendString("play ALIAS", 0, 0, 0)
Play = (MCIReturn = 0)
If Play Then Timer1.Enabled = True
End Function