ありがとうございます。
この通りにやればMsgboxに表示されたんですけど、Labelに表示することはできないでしょうか？
アホな自分は
label1.text =(c.AvailableFreeSpace)
label2.text =(c.TotalFreeSpace)       
label3.text =(c.TotalSize) 
と書いてしかられまくってしまいました.
下の方のコードにVB2010と書いてあるんですけど、もうVB2010はリリースされたんですか？