CodeItBetter Programming Another VB Programming Blog

'System & API - How to Open & Close CD Rom
Option Explicit
 
Private 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
 
Sub ControlCdRom(ByVal bAction As Boolean)
    Dim lReturnValue As Long
    If bAction Then
        'open the CDROM
        Call mciSendString("set CDAudio door open", lReturnValue, 127, 0)
    Else
        'Close the CDROM
        Call mciSendString("set CDAudio door closed", lReturnValue, 127, 0)
    End If
End Sub
 
Private Sub cmdCdRomOpen_Click()
    ControlCdRom True
End Sub
 
Private Sub cmdCdRomClose_Click()
    ControlCdRom False
End Sub