VERSION 5.00
Begin VB.Form Form1 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Form1"
   ClientHeight    =   3405
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   4110
   BeginProperty Font 
      Name            =   "MS Sans Serif"
      Size            =   9.75
      Charset         =   178
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3405
   ScaleWidth      =   4110
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  'Windows Default
   Begin VB.Timer Timer2 
      Enabled         =   0   'False
      Left            =   3480
      Top             =   600
   End
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Left            =   3000
      Top             =   600
   End
   Begin VB.CommandButton Command2 
      Caption         =   "Start Game"
      Default         =   -1  'True
      Height          =   495
      Left            =   2400
      TabIndex        =   2
      Top             =   1320
      Width           =   1215
   End
   Begin VB.TextBox Text1 
      CausesValidation=   0   'False
      Height          =   495
      Left            =   1080
      TabIndex        =   1
      Top             =   1320
      Width           =   1215
   End
   Begin VB.Label time 
      AutoSize        =   -1  'True
      Caption         =   "3"
      Height          =   240
      Left            =   360
      TabIndex        =   7
      Top             =   1440
      Width           =   105
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      Caption         =   "کليد کپس لاک را روشن کنيد"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   12
         Charset         =   178
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   285
      Left            =   480
      TabIndex        =   6
      Top             =   2760
      Width           =   3120
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   "Score :"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   178
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   300
      Left            =   1320
      TabIndex        =   5
      Top             =   360
      Width           =   750
   End
   Begin VB.Label scor 
      AutoSize        =   -1  'True
      Caption         =   "0"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   178
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   300
      Left            =   2280
      TabIndex        =   4
      Top             =   360
      Width           =   150
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   18
         Charset         =   178
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   240
      TabIndex        =   3
      Top             =   2040
      Width           =   3615
   End
   Begin VB.Label lbl 
      Alignment       =   2  'Center
      AutoSize        =   -1  'True
      BeginProperty Font 
         Name            =   "Impact"
         Size            =   14.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   345
      Left            =   1680
      TabIndex        =   0
      Top             =   840
      Width           =   75
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim char As Integer

Private Sub Command1_Click()

End Sub

Private Sub Command2_Click()
Timer2.Enabled = True
Timer1.Enabled = True
Text1.SetFocus
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
For i = 0 To KeyAscii
If KeyAscii = i Then
Label1 = i
Label2 = Chr(i)
End If
Next i
End Sub

Private Sub Form_Load()
Timer1.Interval = 4000
Timer2.Interval = 1000
Label1.ForeColor = (vbRed * Rnd)
End Sub

Private Sub Text1_Change()
If Text1.Text = lbl.Caption Then
Label1.Caption = "Very Goooooooood"
Else
Label1.Caption = "You Loss"
End If
If Text1.Text = "" Then Label1.Caption = ""
If Text1.Text = lbl.Caption Then
scor = scor + 1
Else
scor = scor - 1
End If
If Text1.Text = "" Then scor = scor + 1
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Text1.SetFocus
Randomize Timer
rndchar = Int(26 * Rnd)
char = rndchar
If char = 1 Then lbl = "A"
If char = 2 Then lbl = "B"
If char = 3 Then lbl = "C"
If char = 4 Then lbl = "D"
If char = 5 Then lbl = "E"
If char = 6 Then lbl = "F"
If char = 7 Then lbl = "G"
If char = 8 Then lbl = "H"
If char = 9 Then lbl = "I"
If char = 10 Then lbl = "J"
If char = 11 Then lbl = "K"
If char = 12 Then lbl = "L"
If char = 13 Then lbl = "M"
If char = 14 Then lbl = "N"
If char = 15 Then lbl = "O"
If char = 16 Then lbl = "P"
If char = 17 Then lbl = "Q"
If char = 18 Then lbl = "R"
If char = 19 Then lbl = "S"
If char = 20 Then lbl = "T"
If char = 21 Then lbl = "U"
If char = 22 Then lbl = "V"
If char = 23 Then lbl = "W"
If char = 24 Then lbl = "X"
If char = 25 Then lbl = "Y"
If char = 26 Then lbl = "Z"
Text1 = ""
Timer2.Enabled = True
End Sub

Private Sub Timer2_Timer()
time = time - 1
If time = -1 Then time = 3
End Sub