[VB6] Laufwerk öffnen/schließen

hey ich programmiere so ein bissen mit vb6 und da wollte ich mal wissen wie man ein tool programmiert das die laufwerke öffnet

(macht man das mit der shell option?) :?:

Benutz die mciExecute API.

Code:

---

Private Declare Function mciExecute Lib "winmm.dll" _
(ByVal lpstrCommand As String) As Long

' Auf
Private Sub Command1_Click()
        mciExecute "Set CDaudio door open"
End Sub

' Zu
private Sub Command2_Click()
        mciExecute "Set CDaudio door closed"
End Sub

---

VIELEN DANK 8)