For Each dInfo As System.IO.DriveInfo In System.IO.DriveInfo.GetDrives()
If dInfo.DriveType = [COLOR="Red"]System.IO.DriveType.CDRom[/COLOR] Then
MessageBox.Show(dInfo.Name & " is a " & IO.DriveType.CDRom.ToString)
End If
Next