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