怎么在两点之间画出一条直线

VB中动态画线：
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1DrawMode = 13
Picture1PSet (X, Y)
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1DrawMode = 13
If Button = 1 Then Picture1Line -(X, Y)
End Sub

输入命令：L——回车
输入第一点坐标：xx,yy——回车
输入第二点坐标：xx,yy——回车
一组坐标点只能是一个点X Y 是一个 比如PL 你要输入坐标 X123，Y258然后还要输入坐标X Y才能画一条线 2点确定一条直线

---