在工程中添加“Microsoft multimedia Control6.0”控件,再在窗体上加入该 MMControl 控件和 Command 控件，再键入以下代码(据说是可以开和关，但我没放光盘测试时只能关闭光驱)：

Private Sub Command1_Click()
  With MMControl1
    .DeviceType = "CDAudio"
    .Command = "Open"
    .Command = "Play"
    .Command = "Eject"
    .Command = "Close"
  End With
End Sub

Private Sub Form_Initialize()
  MMControl1.Visible = False
End Sub

另外，有人介绍以下调用 API 的方法开、关光驱，我的机器上也不能实现，大家可以研究一下：
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

Dim retval As Long, retstr As String

Private Sub Command1_Click()
  retval = mciSendString("Set CDAudio door open", retstr, 127, 0) --开
End Sub

Private Sub Command2_Click()
  retval = mciSendString("Set CDAudio door closed", retstr, 127, 0) --关
End Sub