How to change volume ID with VB6?

Hello!
I would like to change a hard drive volume ID with VB6. When I put the 
reference on Microsoft Script, and create FSO - File System Object, I can only 
get a volume serial number for example volumes:C:, D:, etc. I am interesting 
how to get a volume ID, in the form: xxxx-xxxx, and to change it, but ID, not 
serial number.
Can I declare, and call  an API function which can do it?
The best regards
Darko Pogačić
Croatia

Other related posts: