Avaa ja sulkee cd-aseman erittäin helpolla tavalla.
Tarvitsee kaksi command buttonia (command1 ja command2)
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal pszCommand As String, ByVal lpszReturnString As String, ByVal cchReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Sub Command1_Click()
'suljetaan cd-asema.
Call mciSendString("set CDAudio Door Closed Wait", 0&, 0&, 0&)
End Sub
Private Sub Command2_Click()
'avataan cd-asema.
Call mciSendString("set CDAudio Door Open Wait", 0&, 0&, 0&)
End SubAihe on jo aika vanha, joten et voi enää vastata siihen.