怎样用vb求两线段交点

怎样用vb求两线段交点 ，两线段与直线有关吗，是否用证明两直线。希望帮帮忙，为什么代码用不了

哪段代码用不了你倒是贴上来呀