'如需使用sleep函数 那么在程序的最开始加上下面这一行 注意调用的时候Sleep的S要大写 Private Declare Sub Sleep Lib "kernel32" (ByVal dwmilliseconds As Long) '生成一个指定范围的随机数 Private Function Rndz(a As Long, b As Long) Randomize Rndz = Int((a - b + 1) * Rnd() + b) End Function '按钮移动的核心代码,当鼠标移动到按钮的范围内的时候触发这个函数 Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim 横坐标 Dim 纵坐标 '范围结合实际改一下 横坐标 = Rndz(0, 8000) 纵坐标 = Rndz(0, 6000) Command1.Left = 横坐标 Command1.Top = 纵坐标 End Sub '点击关闭按钮 取消关闭 并在生成一个窗体 Private Sub Form_Unload(Cancel As Integer) Cancel = True Dim f1 As New Form1 f1.Show End Sub