Attribute VB_Name = "CDromdoor"
Public 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 opencdrom()
Dim Ret As Long
Dim RetStr As String
'打開光驅門
Ret = mciSendString("set CDAudio door open", RetStr, 0, 0)
End Sub
Sub closecdrom()
Dim Ret As Long
Dim RetStr As String
'關閉光驅門
Ret = mciSendString("set CDAudio door closed", RetStr, 0, 0)
End Sub