There are tools that do this: ProduKey – however, in my case it didn't return the product key I had in the bottom of my netbook. I don't see a point in duplicating the functionality in VB6.