VB中“窗体放大一倍”和窗体缩小一倍怎么做？？

Private Sub Command1_Click() ' 这里是窗口放大2倍
Form1.Height = Form1.Height * 2 'form1就是窗口的名字，
Form1.Width = Form1.Width * 2
End Sub

Private Sub Command2_Click() ' 这里是窗口缩小2倍
Form1.Height = Form1.Height / 2
Form1.Width = Form1.Width / 2
End Sub

Private Sub Form_Click()
Static b As Boolean
If b Then
Me.Height = Me.Height / 2: Me.Width = Me.Width / 2
Else
Me.Height = Me.Height * 2: Me.Width = Me.Width * 2
End If
b = Not b
End Sub

加上一个窗口的WINDOWS事件就行了