You have mixed the code with alot of old VB6 code. You shouldnt do that in VB .Net.
Besides, why have you changed so much of the original code?