Создать счетчик через таймер - VB

Public i As Long
Private Sub Form_Load()
    i = 0
    Timer1.Interval = 1000
    Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
    If i <= 5 Then
        i = i + 1
        Debug.Print i
    Else
        Timer1.Enabled = False
        Unload Me
    End If
End Sub