Dim Cur As Byte
'arriba 38
'abajo 40
'izq 37
'derech 39
'B 66
'A 65
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    tmrPulso.Enabled = False
    Select Case Cur
    Case 0
        If KeyCode = 38 Then Cur = Cur + 1 Else Cur = 0
    Case 1
        If KeyCode = 38 Then Cur = Cur + 1 Else Cur = 0
    Case 2
        If KeyCode = 40 Then Cur = Cur + 1 Else Cur = 0
    Case 3
        If KeyCode = 40 Then Cur = Cur + 1 Else Cur = 0
    Case 4
        If KeyCode = 37 Then Cur = Cur + 1 Else Cur = 0
    Case 5
        If KeyCode = 39 Then Cur = Cur + 1 Else Cur = 0
    Case 6
        If KeyCode = 37 Then Cur = Cur + 1 Else Cur = 0
    Case 7
        If KeyCode = 39 Then Cur = Cur + 1 Else Cur = 0
    Case 8
        If KeyCode = 66 Then Cur = Cur + 1 Else Cur = 0
    Case 9
        If KeyCode = 65 Then
            MsgBox "KABIO EL KONAMI KODE"
            Cur = 0
        End If
    End Select
    tmrPulso.Enabled = True
End Sub
 
 
Private Sub tmrPulso_Timer()
Cur = 0
End Sub