点击按钮后，如何改变窗体高度

点击按钮后，怎么改变窗体高度?
我写了代码，想要在窗体加载时ScaleHeight=1800，点击command1后ScaleHeight=12000，但是运行的时候实现不了，请问是哪里出了问题
Private Sub Command1_Click()
sales2.ScaleHeight = 12000
End Sub

Private Sub Form_Load()
sales2.ScaleHeight = 1800
End Sub
[解决办法]
应该是改变size吧