Private Sub picMap_MouseMove(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.MouseEventArgs) Handles picMap.MouseMove
        picMap.Cursor = Cursors.Cross
        PosX = e.X
        PosY = e.Y
        If PosX  <?  >?  =?    ???     then
                bolOverpicMap = False
        End If
End Sub

fg viperbone