知道四个点,如何用vb编写程序求到四个点距离最短的直线方程?

dim i as integer
for i=1 to 4
循环每两个点之间的距离
公式是 距离^2=第1个点的横坐标-第二个点的横坐标）^2+( 第一个点的纵坐标-第2点的纵坐标） ^2
就这样算了，写出来是有点麻烦，不过思路就是这样了
然后比较之中最短的一条给min