Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _ ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long 'Apre il cassetto... Dim retvalue As Long retvalue = mciSendString("set CDAudio door open", returnstring, 127, 0) '... e lo richiude retvalue = mciSendString("set CDAudio door closed", returnstring, 127, 0) |