Melihat kapasitas pada partisi

Untuk melihat partisi pada komputer atau laptop anda, kali ini saya mencoba untuk bagaimana mengetahui Nama drive pada setiap masing-masing partisi, kapasitas dari partisi dan kemudian sisa serta berapa jumlah terpakainya drive dalam MB.
Berikut adalah codingnya:

Imports System.IO
Public Class Form8
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Close()
    End Sub
'Melihat jumlah partisi yang terbagi pada komputer anda
    Private Sub Form8_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        ComboBox1.Items.AddRange(IO.DriveInfo.GetDrives)
    End Sub
'informasi dari masing-masing partisi
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        ListBox1.Items.Clear()
        ListBox1.Items.Add("Nama Drive : " & _
        Dir("" & ComboBox1.Text & "", FileAttribute.Volume) & "")
        ListBox1.Items.Add("Nama Drive : " & _
        Dir("" & ComboBox1.Text & "", FileAttribute.System) & "")

        Dim Dvr As New DriveInfo(ComboBox1.Text)
        Dim kapasitas = CStr(Dvr.TotalSize / 1000000) & "MB"
        Dim sisa = CStr(Dvr.TotalFreeSpace / 1000000) & "MB"
        Dim terpakai = CStr(Val(kapasitas) - Val(sisa)) & "MB"

        ListBox1.Items.Add("Kapasitas :" & kapasitas)
        ListBox1.Items.Add("Sisa :" & sisa)
        ListBox1.Items.Add("Terpakai :" & terpakai)


    End Sub
End Class