VB6 non è VB.NET, è normale che quel codice non funzioni.
Dai un'occhiata qui (tra l'altro è anche un approccio più "pulito").