Private Sub Command1_Click()
Label1.Caption = "我也爱你!!"
Command1.Enabled = False
Command2.Left = 2640
Command2.Top = 2040
Command2.Enabled = False
End Sub
Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, _
Y As Single)
'取窗体宽度范围内的随机数
X = Rnd * (Form1.ScaleWidth - Command2.Width)
'取窗体高度范围内的随机数
Y = Rnd * (Form1.ScaleHeight - Command2.Height)
'移动按钮到窗体的(X,Y)位置
Command2.Move X, Y
End Sub