窗体退出效果

Question

If 语句的问题~~
Correct To This:Private Sub Command1_Click()
gotoval = Me.Height / 2
 For gointo = 1 To gotoval
 DoEvents
 Me.Height = Me.Height - 10
 If Me.Height <= 11 Then GoTo horiz 'Correct
 Next gointo
horiz:
 Me.Height = 30
 gotoval = Me.Height / 2
 For gointo = 1 To gotoval
 DoEvents
 Me.Width = Me.Width - 10
 If Me.Width <= 11 Then End 'Correct
 Next gointo
 End
End Sub