找一些vba代码

来源：百度知道 编辑：UC知道 时间：2024/09/28 14:27:07
要一些花哨的代码，最好是能让人耳目一新的。

最好是有一些特殊效果的。

原来看过一个代码。

当鼠标移到控件上时，控件就会移动，如果有人有请给我，谢谢。

VBA和VB一样么?

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim Xmove As Single, Ymove As Single
Xmove = Rnd * (Me.ScaleWidth - Command1.Width)
Ymove = Rnd * (Me.ScaleHeight - Command1.Height)
Command1.Left = Xmove
Command1.Top = Ymove
End Sub