Inventory in VB6