Private Declare Function QueryDosDevice Lib "kernel32.dll" Alias _
      "QueryDosDeviceA" ( _
        ByVal lpDeviceName As String, _
        ByVal lpTargetPath As System.Text.StringBuilder, _
        ByVal ucchMax As Int32) As Int32
 
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button5.Click
        Dim out As New System.Text.StringBuilder(" ", 100)
        For Each di As System.IO.DriveInfo In System.IO.DriveInfo.GetDrives()
            If di.DriveType = IO.DriveType.CDRom Then
                QueryDosDevice(di.Name.Replace("\", ""), out, out.Capacity)
                Debug.WriteLine(out.ToString() + " mount on " + di.Name)
            End If
        Next
    End Sub