Codigo de fuente del Modulo de la "Alfombra"

Private Sub Timer1_Timer()
Dim i As Integer
Dim reg As Integer
Dim text As String
Dim entrada As Integer
i = 1
reg = Inp(&H379)
ch.Value = False
Do While i = 1
   
    entrada = Inp(&H379)
   
    If entrada = 120 Then
        prob.BackColor = &H8000&
        prob1.BackColor = &HC00000
        prob2.BackColor = &HFFFF&
        prob3.BackColor = &HC0&
        prob4.BackColor = &HC000C0
        i = 2
    End If
   
    If entrada = 56 Then
        prob.BackColor = &HC000&
        'With MMControll
            '.FileName = "C:\Documents and Settings\LAB4\Escritorio\Sonido\vaca.mp3"
            '.Command = "open"
        'End With
        i = 2
    End If
    If entrada = 248 Then
        prob1.BackColor = &HFF0000
        i = 2
    End If
   
    If entrada = 88 Then
        prob2.BackColor = &H80FFFF
        i = 2
    End If
   
    If entrada = 104 Then
        prob3.BackColor = &HFF&
        i = 2
    End If
   
    If entrada = 112 Then
        prob4.BackColor = &HFF00FF
        i = 2
    End If
    
Loop
End Sub