Evidentemente non è codice per VB2010, ma per VB6...