Eseguendo questo codice (Devi solo impostare la proprietā FileName del MMControl!) potrai vedere che mentre ascolti la musica, esegui il codice nella sub Command1_Click()


Private Sub Command1_Click()
MsgBox "Ciao"
End Sub

Private Sub Form_Load()
MMControl1.Visible = False
MMControl1.Notify = False
MMControl1.Shareable = False
MMControl1.Command = "Open"
MMControl1.Command = "Play"
End Sub


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

Ciao !