Dim mycnt As Integer
Private Sub Command1_Click()
Timer1.Interval = 1000
Me.FontSize = 50
mycnt = 11
End Sub
Private Sub Timer1_Timer()
mycnt = mycnt - 1
Me.FontSize = Me.FontSize + 20
Cls
Print mycnt
If mycnt = 0 Then
mycnt = 11
Me.FontSize = 50
End If
End Sub