Need Help With Text box Disable

[crispycret]

My text box changes to 6 when buttons click to fast
but all the codes revolve around 5 so how do i make that textbox1 disables with 5

Public Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
intTimerCounter = intTimerCounter + 1
Label2.Text = intTimerCounter
If intTimerCounter = 30 Then
Button1.Enabled = False
Button2.Enabled = False
TextBox1.Enabled = False
Timer1.Stop()
End If



If TextBox1.Text = 5 Then
TextBox1.Enabled = False
Button1.Enabled = False
Button2.Enabled = False
Timer1.Stop()
Form4.Show()
End If


ProgressBar1.Value = TextBox1.Text
ProgressBar1.Maximum = 5


If ProgressBar1.Value = ProgressBar1.Maximum Then

Timer1.Stop()


End If

End Sub

[crispycret]

Here Is all of the code

[crispycret]

Public Class Form1
Dim intCounter As Integer = 0
Dim intTimerCounter As Integer = 0
Dim value As String



Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
Form2.Close()
End Sub

Public Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Label2.Enabled = True
intCounter = 0
intTimerCounter = intCounter
Button1.Enabled = True
Button2.Enabled = False
TextBox1.Text = intCounter
Timer1.Enabled = True


End Sub

Public Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Application.Exit()
End Sub

Public Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Label1.BackColor = Color.Transparent
Label2.BackColor = Color.Transparent
Label3.BackColor = Color.Transparent

Button1.Enabled = False
Button2.Enabled = False
Label2.Enabled = False
Form5.Hide()
End Sub

Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

intCounter = intCounter + 1
TextBox1.Text = intCounter
Button1.Enabled = False
Button2.Enabled = True
End Sub

Public Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

intCounter = intCounter + 1
TextBox1.Text = intCounter
Button1.Enabled = True
Button2.Enabled = False

End Sub

Public Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
intTimerCounter = intTimerCounter + 1
Label2.Text = intTimerCounter
If intTimerCounter = 30 Then
Button1.Enabled = False
Button2.Enabled = False
TextBox1.Enabled = False
Timer1.Stop()
End If

ProgressBar1.Value = TextBox1.Text
ProgressBar1.Maximum = 5

If TextBox1.Text = 5 Then
ProgressBar1.Value = ProgressBar1.Maximum
Timer1.Stop()
TextBox1.Enabled = False
Button1.Enabled = False
Button2.Enabled = False
Form4.Show()
End If





End Sub


End Class