Counting Numbers

Public iMax As Integer

Private Sub CommandButton1_Click()
    iMax = iMax - 1
    TextBox1.Text = iMax
    If iMax < 1 Then
        CommandButton1.Enabled = False
        Frame1.Enabled = False
    End If
End Sub

Private Sub UserForm_Initialize()
    iMax = 5    'The max times save
    TextBox2.Text = iMax
    TextBox1.Text = ""
    TextBox1.Enabled = False
    TextBox2.Enabled = False
End Sub