[3booody]

[COLOR="#800000"]السلام عليكم ورحمة الله وبركاته
ضع زرين بوتون واحد لفتح السي دي والثاني لغلقه[/COLOR]

كود :

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

    Private Sub OpenCD()
        Dim lRet As Long
        lRet = mciSendString("set CDAudio door open", "returnstring", 127, 0)
    End Sub
    Private Sub CloseCD()
        Dim lRet As Long
        lRet = mciSendString("set CDAudio door closed", "returnstring", 127, 0)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        OpenCD()
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        CloseCD()
    End Sub