为什么没有纵向展开？求修正，谢谢

问题描述，实现启动纵向展开效果，可是什么效果没有，求修正，谢谢

Private Sub Form_Load()
Me.Height = 0 
Me.Width = 0 
For i = 1 To Me.Height / 2 '纵向展开
DoEvents
Me.Height = Me.Height +150
If Me.Height >= 11 Then GoTo lines '纵向展开再横向展开
Next i
lines:
Me.Height = 30
For i = 1 To Me.Width / 2
DoEvents
Me.Width = Me.Width +150
If Me.Width >= 11 Then End
Next i
End
End Sub