Hii , ich blätterte grade in meinem VB6 Buch und entdeckte diese API
sie lässt das CD-Laufwerk öffnen und schliessen.Code:Public Class Form1
'API
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'2 mal fürs öffnen und schliessen
mciExecute("")
mciExecute("")
End Sub
End Class
mfG