[3booody]

السلام عليكم ورحمة الله وبركاته

ضع هذا الكود في زر بوتون

كود :

TextBox1.Text = ""
        TextBox2.Text = ""
        Dim cd = From d In IO.DriveInfo.GetDrives() Where d.DriveType = IO.DriveType.CDRom Select d
        For Each a In cd
            If TextBox1.Text = "" Then
                TextBox1.Text = a.ToString
            Else
                TextBox2.Text = a.ToString
            End If
        Next