visul basic de eject komutu nasıl verilir???

[goktug_kaan_sengul]

eğer biliyor iseniz lütfen goktug_kaan_sengul@yahoo.com'a cevap verin..
ilginiz için teşekkürler...

[gsogutcu]

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

Public Function cdRomAc() As Boolean
Dim DonusDegeri As Long
DonusDegeri = mciSendString("set CDAudio door open", ReturnString, 127, 0)
If DonusDegeri = 0 Then cdRomAc = True Else cdRomAc = False
End Function

Public Function cdRomKapat() As Boolean
Dim DonusDegeri As Long
DonusDegeri = mciSendString("set CDAudio door closed", ReturnString, 127, 0)
If DonusDegeri = 0 Then cdRomKapat = True Else cdRomKapat = False
End Function

Private Sub CommandButton1_Click()
cdRomAc
End Sub

Private Sub CommandButton2_Click()
cdRomKapat
End Sub

[damdaki_kedi]

bir ekleme, iki cdrom olan bilgisaarlarda sadece slave master kablosuna takılan açılır. ikisini de açabilen bir kod bulamadım daha VBde.