vb程序计算++图像两竖线间距代码

两个line1 line2
dim s as long

if line1.X1 = line1.X2 then
if line2.X1 = LINE2.X2 THEN
s = line2.X1 - line1.X1
else
msgbox"两线不平行，不能得出结果"
end if
else
if line.y1 = line.y2 then
if line2.y1 = line2.y2 then
s = line2.y1 - line1.y1
msgbox"两线不平行，不能得出结果"
end if
else
msgbox "斜线懒得求解"
end if
end if

快过期了，分给我吧