distance entre de points p1 et p2

Public Class point
Protected x As Integer
Protected y As Integer
Public Property _X()
Get
Return x
End Get
Set(ByVal value)
x = value
End Set
End Property
Public Property _Y()
Get
Return y
End Get
Set(ByVal value)
y = value
End Set
End Property

Public Function distance(ByVal p1 As point, ByVal p2 As point) As Integer
Dim dis As Integer
dis = Math.Sqrt((p2.x - p1.x) * (p2.y - p1.y) + (p2.y - p1.y) * (p2.y - p1.y))
Return dis
End Function
Public Sub New()

End Sub
Public Sub New(ByVal xx As Integer, ByVal yy As Integer)
Me.x = xx
Me.y = yy
End Sub
End Class