VB界面装饰(在线等！！！)

当鼠标移动到该位置时候显示

以下是我的代码：

Private Sub Picture1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim MouseEnter As Boolean '鼠标进入的标志位
MouseEnter = (0 <= X) And (X <= Picture1(Index).Width) And (0 <= Y) And (Y <= Picture1(Index).Height)
If MouseEnter Then '鼠标已经进入
Set Me.Picture1(Index).Picture = Picture2(Index).Picture
SetCapture Picture1(Index).hWnd
Else '鼠标已经离开
Set Me.Picture1(Index).Picture = Picture3(Index).Picture
ReleaseCapture
End If
End Sub

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~`

由于窗体上的效果按扭太多，代码写的比较频繁，而且和多都是用控件存储集成在VB窗体中的。这样做显示是为了达到目的，但是效率和方法肯定不是最优的。有那位高人给学弟指点下迷津，有什么最简洁方法~

这些都是使用了三方控件！我这里有几个效果还不错！如果你需要的话可以加我QQ295601872,其实你大可没必要这样去写代码，封装的控件比写代码方便，代码更容易管理！回答完毕！

我有个较逼真的方法：

Private Sub Picture1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) Picture1.Picture = LoadPicture("在其中填图片位置")

End Sub

利用绝对路径，将一些图片放在目录里再连接，不直接放入VB中。