How to get hard disk's volume serial number?

How to get hard disk's volume serial number in VB?

Look it here

http://vbcode.webhostme.com/en/click.asp?id=59

[email protected]
http://vbcode.webhostme.com/