I'm not sure if you got your answer yet, but I think it's here:

dim x as integer = e.x
dim y as integer = e.y

Make those changes and you should be fine.