VB 6

Dim iNumber As Integer
Dim sCharacter As String
Public iLetter As Integer
Dim iLoop As Integer
Dim iKeyDown As Integer
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Dim ikeycode As Integer
Dim ilooptimer As Long
Dim iLoops As Integer




    
    
    
    
    Private Sub Form_Load()
    Me.WindowState = vbMaximized
    
    ikeycode = True
    
    If ikeycode = True Then
        For iLoop = 1 To 5
        
        
        ikeycode = False
        
    
        iLoop = iLoop + 1
        
        iNumber = Int((Rnd * 26) + 1)
        
        iLetter = frmChoice.iTextColour
        
        
        If iLetter = 1 Then
            lblTest.ForeColor = &HC00000
        End If
        
        If iLetter = 2 Then
            lblTest.ForeColor = &HFF00&
        End If
        
        If iLetter = 3 Then
            lblTest.ForeColor = &H80FF&
        End If
        
        If iLetter = 4 Then
            lblTest.ForeColor = &HFF&
        End If
        
        
        If iNumber = 1 Then
           sCharacter = "A"
        End If
        
        If iNumber = 2 Then
           sCharacter = "B"
        End If
        
        If iNumber = 3 Then
           sCharacter = "C"
        End If
        
        If iNumber = 4 Then
           sCharacter = "D"
        End If
        
        If iNumber = 5 Then
           sCharacter = "E"
        End If
        
        If iNumber = 6 Then
           sCharacter = "F"
        End If
        
        If iNumber = 7 Then
           sCharacter = "G"
        End If
        
        If iNumber = 8 Then
           sCharacter = "H"
        End If
        
        If iNumber = 9 Then
           sCharacter = "I"
        End If
        
        If iNumber = 10 Then
           sCharacter = "J"
        End If
        
        If iNumber = 11 Then
           sCharacter = "K"
        End If
        
        If iNumber = 12 Then
           sCharacter = "L"
        End If
        
        If iNumber = 13 Then
           sCharacter = "M"
        End If
        
        If iNumber = 14 Then
           sCharacter = "N"
        End If
        
        If iNumber = 15 Then
           sCharacter = "O"
        End If
        
        If iNumber = 16 Then
           sCharacter = "P"
        End If
        
        If iNumber = 17 Then
           sCharacter = "Q"
        End If
        
        If iNumber = 18 Then
           sCharacter = "R"
        End If
        
        If iNumber = 19 Then
           sCharacter = "S"
        End If
        
        If iNumber = 20 Then
           sCharacter = "T"
        End If
        
        If iNumber = 21 Then
           sCharacter = "U"
        End If
        
        If iNumber = 22 Then
           sCharacter = "V"
        End If
        
        If iNumber = 23 Then
           sCharacter = "W"
        End If
                                                                                                                                                
        If iNumber = 24 Then
           sCharacter = "X"
        End If
        
        If iNumber = 25 Then
           sCharacter = "Y"
        End If
        
        If iNumber = 26 Then
           sCharacter = "Z"
        End If
        
        txtLetter.Text = sCharacter
        
       
       If ikeycode = True Then
            Beep 500, 500
        Else
            ilooptimer = ilooptimer + 20
            DoEvents
       End If
        
        Next iLoop
    End If
    
    'End
    
    End Sub
    
   

    Private Sub frmTest_KeyDown(keycode As Integer, shift As Integer)
    If keycode = vbKey32 Then
        ikeycode = True
    End If
    'Beep 500, 500
    iLoop = 0
    End Sub