picture控件的使用

Question

我在窗体上放了一个picture框做成工具条,然后在工具条(picture框)上再方picture框
然后我添加这样的代码:
Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture2.PaintPicture Picture2.Picture, 0, 0, 43, 43, 43, 0, 43, 43, vbSrcCopy
End Sub
把鼠标放上去图片是变了,不过把鼠标移走图片就不会变回来
请给出代码：要怎样才能解决呢,请多加注释

Answer 1

1.去找一段mouseout的代码，网上很多
2。在Picture2周围的控件上添加mousemove代码，即鼠标移动到picture2以外时（鼠标在其周围的控件上），改变picture2的图片。

Answer 2

同意Alzzl() ：在Picture1上使用MouseMove事件，还原图片。