建两个textbox。
然后在程序中点两个文本框，就自动在两个文本框之间连出一条线
參考答案:Private Sub Text1_Click()
Line (Text1.Left + Text1.Width, Text1.Top + Text1.Height / 2)-(Text2.Left, Text2.Top + Text1.Height / 2)
End Sub
Private Sub Text2_Click()
Line (Text1.Left + Text1.Width, Text1.Top + Text1.Height / 2)-(Text2.Left, Text2.Top + Text1.Height / 2)
End Sub