简单的VB函数可计算两点之间的距离

Public Function DistanceBetween(ByVal X1 As Single, ByVal Y1 As Single, ByVal X2 As Single, ByVal Y2 As Single) As Single
  ' Calculate the distance between two points, given their X/Y coordinates. 
  ' The short version...
  DistanceBetween = Sqr((Abs(X2 - X1) ^ 2) + (Abs(Y2 - Y1) ^ 2)) 
  ' The longer version, to illustrate how it works...
  Dim Horizontal As Single, Vertical As Single
  Horizontal = Abs(X2 - X1)
  Vertical = Abs(Y2 - Y1)
  DistanceBetween = Sqr((Horizontal * Horizontal) + (Vertical * Vertical))
End Function

From: https://bytes.com/topic/visual-basic/insights/666086-simple-vb-function-calculate-distance-between-two-points