Speed of Drive and Disk

Hello,
does anybody can share a sample code on how to get the speed supported by drive and CD in VB6 ?
Thanks.