Thanks to Robert Flowers.

Use the mciSendString API function.

Private Sub cmdOpen_Click()
    mciSendString "Set CDAudio Door Open Wait", 0&, 0&, 0&
End Sub

Private Sub cmdClose_Click()
    mciSendString "Set CDAudio Door Closed Wait", 0&, 0&, 0&
End Sub