1. 1.
    0
    Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
    Private Sub Command1_Click()
    mciExecute ("Set CDAudio door Open")
    End Sub

    Private Sub Command2_Click()
    mciExecute ("Set CDAudio door closed")
    End Sub
    ···
   tümünü göster