VB Code:
  1. dim iLen as Integer
  2. iLen = Abs(((Y1-Y2)^2)+((X1-X2)^2)) [B]^ 0.5[/B]  'formula, posted b4 by SLH
  3. MsgBox iLen