Click O Thon

The Form:


Be sure to Disable The Start button and the CLICK!!!! button...

PHP Code:
Public Class Form1

    
Private Sub Button3_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button3.Click
        
If Timer1.Interval "170" Then
            ProgressBar1
.Value -= 2
        End 
If
        If 
Timer1.Interval "50" Then
            ProgressBar1
.Value -= 2
        End 
If
        If 
Timer1.Interval "20" Then
            ProgressBar1
.Value -= 3
        End 
If

    
End Sub

    
Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click

        Timer1
.Start()
        
Timer2.Start()
        
Button3.Enabled True
        Button4
.Enabled False
        Button5
.Enabled False
        Button6
.Enabled False
    End Sub

    
Private Sub Timer1_Tick(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Timer1.Tick
        ProgressBar1
.Increment(1)
        If 
ProgressBar1.Value ProgressBar1.Maximum Then
            Timer1
.Stop()
            
Label1.Text "YOU FAIL!!!"
        
End If
        If 
ProgressBar1.Value "5" Then
            Timer1
.Enabled False
            Button3
.Enabled False
            Label1
.Text "YOU WIN!!!"
            
Timer2.Stop()
        
End If
        If 
ProgressBar1.Value "4" Then
            Timer1
.Enabled False
            Button3
.Enabled False
            Label1
.Text "YOU WIN!!!"
            
Timer2.Stop()
        
End If
        If 
ProgressBar1.Value "3" Then
            Timer1
.Enabled False
            Button3
.Enabled False
            Label1
.Text "YOU WIN!!!"
            
Timer2.Stop()
        
End If
        If 
ProgressBar1.Value "2" Then
            Timer1
.Enabled False
            Button3
.Enabled False
            Label1
.Text "YOU WIN!!!"
            
Timer2.Stop()
        
End If
        If 
ProgressBar1.Value "1" Then
            Timer1
.Enabled False
            Button3
.Enabled False
            Label1
.Text "YOU WIN!!!"
            
Timer2.Stop()
        
End If
    
End Sub

    
Private Sub Form1_Load(ByVal sender As System.ObjectByVal e As System.EventArgsHandles MyBase.Load

    End Sub

    
Private Sub Button2_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button2.Click
        Label2
.Text "60"
        
ProgressBar1.Value 35
        Label1
.Text ""
        
Timer1.Stop()
        
Button3.Enabled False
        Button4
.Enabled True
        Button5
.Enabled True
        Button6
.Enabled True
        Button1
.Enabled True
    End Sub

    
Private Sub Button4_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button4.Click
        Timer1
.Interval "170"
        
Button4.Enabled False
        Button6
.Enabled True
        Button6
.Enabled True
    End Sub

    
Private Sub Button5_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button5.Click
        Timer1
.Interval "50"
        
Button4.Enabled True
        Button5
.Enabled False
        Button6
.Enabled True
    End Sub

    
Private Sub Button6_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button6.Click
        Timer1
.Interval "20"
        
Button4.Enabled True
        Button5
.Enabled True
        Button6
.Enabled False
    End Sub

    
Private Sub Timer2_Tick(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Timer2.Tick
        Label3
.Text Label2.Text 1
    End Sub
End 
Class 
Credits To DaneX