Help with timer???

[vb6-lover]

I want to make the Text1 box flipping donw gradually after pressing a the command button. What's wrong with the following code?

Private Sub Command1_Click()
 Text1.Visible = True
 Timer1.Enabled = True
 Timer1.Interval = 1000
End Sub
 
Private Sub Timer1_Timer()
Dim i As Integer
For i = 1 To 2000
   Text1.Height = i
   If i = 2000 Then
   Exit Sub
   End If
Next i
End Sub