Находит расстояние между двумя точками.
Visual Basic:
Function Distance(X1 As Double, Y1 As Double, X2 As Double, Y2 As Double) As Double
X1, Y1 - координаты первой точки.
X2, Y2 - координаты второй точки.
Расстояние определяется по формуле D = sqrt((X1-X2)^2 + (Y1-Y2)^2).