[VB.NET] اريد كود فتح سواقة والمفضلة

PHP كود :

Try
            Dim retvalue As Object
            Dim returnstring As Object
            retvalue = mciSendString("set CDAudio door open", returnstring, 127, 0)
        Catch ex As Exception
            MessageBox.Show(ex.Message & ex.Source)
        End Try

PHP كود :

 Private Sub ListBox1_DragDrop(sender As Object, e As DragEventArgs) Handles ListBox1.DragDrop
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then

        End If
        Dim filePaths As String() =
       CType(e.Data.GetData(DataFormats.FileDrop), String())
        For Each s As String In filePaths

        Next
        Dim FI As New IO.FileInfo(s)
        Dim exten As String =
       FI.Name.Substring(FI.Name.LastIndexOf(".") + 1, FI.Name.Length -
       (FI.Name.LastIndexOf(".") + 1))
        If exten = "mp3" Or exten = "wmv" Then
            ListBox1.Items.Add(s)
        End If
        Try

        Catch ex As Exception

        End Try
        MessageBox.Show("Some error occur so can't play media",
       "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Sub

    Private Sub ListBox1_DragEnter(sender As Object, e As DragEventArgs) Handles ListBox1.DragEnter
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            e.Effect = DragDropEffects.Copy
        Else
            e.Effect = DragDropEffects.None
        End If
        Try

        Catch ex As Exception

        End Try
        MessageBox.Show("Some error occur so can't play media",
       "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Sub

    Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged

        Dim Filename As String = ListBox1.SelectedItem
        AxWindowsMediaPlayer.URL = Filename
        AxWindowsMediaPlayer.Ctlcontrols.play()
    End Sub