Zooming problem

[Aniket Singh]

i m doing project in VB
what i want is when i wll click on zoomin and take mouse pointer over the map it should show zoomin image and same zoom out
in my project there r three images. 1> image displaing map 2>displaing zoomin and 3> displaing zoomout
in imagedisplay(of map) and event mouse move i have written the coding

If zoomani = 1 Then
  Imgdisplay.MousePointer = LoadPicture(Apppath + "maps\zoomin.jpg")
Else
  Imgzoomout.MousePointer = LoadPicture(Apppath + "maps\index\zoom-out-icon.jpg")
End If
End Sub

and i have decleared zoomani as integer
and in zoonin zoomani = 1 (in private sub zoomin())
and in zoomout zoomani = 2 (in private sub zoomout())
and when i m running the program it is showing runtime error 6
overflow
so i wnt 2 know where i m wrong

[bartonc]

Moving to the Visual Basic Forum and recommending that you read our Posting Guidelines. Welcome to TheScripts.com.

[Killer42]

I found the question quite difficult to follow. Could you show us the statement (and the context) where the error is reported?

Also, does "displaing" mean "displaying"?

And finally, what version of VB are you using?