Открыть-закрыть лоток CD/DVD - Visual Basic .NET

    Dim I As Integer
    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 OpenCloseDoor(ByVal strDriveLetter As String, ByVal blnDoOpen As Boolean)
        Dim AliasName, strOpenClose As String
        strOpenClose = IIf(blnDoOpen, "Open", "Closed")
        AliasName = "Laufwerk" & strDriveLetter
        mciSendString("Open " & strDriveLetter & ": Alias " & AliasName & " Type CDAudio", 0, 0, 0)
        mciSendString("Set " & AliasName & " Door " & strOpenClose, 0, 0, 0)
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        OpenCloseDoor("D:\", False)
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        OpenCloseDoor("D:\", True)
    End Sub