Private Function IsPixelInside(X As Long, Y As Long) As Boolean 
      If (X > XIn And X < XOut) And (Y > YIn And Y < YOut) Then 
               IsPixelInside = True 
      Else 
               IsPixelInside = False 
      End If 
End Function