Try maybe ,

if your zone on your map are in color you could use
point method:

Code:
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Picture1.Point(X, Y) = ??? Then
End Sub