如何在鼠标跟踪上添加一个X线和Y线。这两条线随鼠标移动而移动。
   本人刚学2天。麻烦大虾指点！原代码如下：


Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If X > Picture1.Left And X < Picture1.Width Then
     HScroll1.Value = (X - Picture1.Left) / (Picture1.Width) * 100
     End If
If Y > Picture1.Top And Y < Picture1.Height Then
     VScroll1.Value = (Y - Picture1.Top) / (Picture1.Height) * 100
     End If
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   Picture1.Cls
   Picture1.Line (X, Y - 200)-(X, Y + 200)
   Picture1.Line (X - 200, Y)-(X + 200, Y)
End Sub
没看懂你以上代码是干吗， 不过画十字我好像会一点

用线条控件.

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
Line1.X1 = 0
Line1.X2 = Picture1.Width
Line1.Y1 = Y
Line1.Y2 = Y
 
Line2.X1 = X
Line2.X2 = X
Line2.Y1 = 0
Line2.Y2 = Picture1.Height
 
End Sub

哦，谢了楼上，原来是这个意思

谢谢3楼的仁兄。我要的就是这个效果！