求一段vb代码，初学者谢谢

[qq_39563414]

就是两条垂直线，鼠标随着两条垂直线的交点移动，两条垂直线随着移动，但两条线始终保持垂直

[脆皮大雪糕]

界面上放一个picture box 命名为picture1 ,然后粘贴下面的代码

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Picture1.Cls
    Picture1.Line (X - 100, Y)-(X + 100, Y), vbRed
    Picture1.Line (X, Y - 100)-(X, Y + 100), vbBlue
End Sub

[threenewbee]

你说的这个，叫做十字光标，或者叫橡皮筋技术 ，好了，关键字给你了，自己google吧