[سعود]

بعد اذن الاخوان احب اضيف الكود اللي اظنه ابسط ويؤدي الغرض

كود :

For Each drive In IO.DriveInfo.GetDrives
            If drive.DriveType = IO.DriveType.CDRom Then
                TextBox1.Text = drive.Name
                TextBox1.Text = TextBox1.Text.Remove(1, 2)
            End If
        Next

---

رقم 1 هو بداية الحذف وطبعا رقم صفر بيحذف من الاول عشان كذا كتبنا واحد والثاني طول النص المراد حذفه وهو اثنين فقط النقطتين (1) و الشرطة(2)