VB的问题用MOVE方法实现以下效果！！！！

1、 用MOVE方法实现以下效果

（1） 每次单击窗体Form1，使按钮Command1向右、向上各移动100缇

（2） 每次双击窗体Form1，使按钮Command1的宽和高各增加100缇（按钮位置不变）

Option Explicit

Private Sub Form_Click()
Command1.Move Top + 100, Left - 100
End Sub

Private Sub Form_DblClick()
Command1.Height = Command1.Height + 100
Command1.Width = Command1.Width + 100
End Sub