如何在鼠标跟踪上添加一个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

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