QQ找茬十字标原理

Option Explicit
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form1.Picture1.Cls
Form1.Picture2.Cls
Picture1.CurrentX = X
Picture1.CurrentY = Y
Picture1.Print "+"
Picture2.CurrentX = X
Picture2.CurrentY = Y
Picture2.Print "+"
End Sub
Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form1.Picture1.Cls
Form1.Picture2.Cls
Picture1.CurrentX = X
Picture1.CurrentY = Y
Picture1.Print "+"
Picture2.CurrentX = X
Picture2.CurrentY = Y
Picture2.Print "+"
End Sub

。。这代码。。

这是在干什么就为了一个做坐天哪。。。用Refresh 不是更好点吗?