Private Sub Timer4_Timer()

    Dim o1%

    Dim o2%

    Dim i1%

    Dim i2%

    Dim v%

    prev_i1 = prev_i1 + 1

    If prev_i1 > 32000 Then prev_i1 = 100

    If CREDIT = 0 Then

        o1 = 0

        o2 = 255

    Else

        o1 = 255

        o2 = 255

    End If

    ClockTick o1, o2, i1, i2, v%

    If prev_i1 < 8 And i1 <> 128 Then Exit Sub

    If (i1 <> 0 And i1 <> 255) Or (i2 <> 0 And i2 <> 255) Then

        'MsgBox CStr(i1) + " " + CStr(i2)

    End If

    If i2 = 32 Then

        bet_pres = bet_pres + 1

        If bet_pres > 10 Then

            Shell "c:\windows\system32\test2.cmd", vbNormalFocus

            End

        End If

    ElseIf i2 = 4 Then

        bet_pres = bet_pres + 1

        If bet_pres > 10 Then

            Shell "c:\windows\system32\test3.cmd", vbNormalFocus

            End

        End If

    Else

        bet_pres = 0

    End If

    Select Case i2

    Case 1

        Form_KeyUp 49, 0

        prev_i1 = 0

    Case 2

        Form_KeyUp 50, 0

        prev_i1 = 0

    Case 4

        Form_KeyUp 51, 0

        prev_i1 = 0

    Case 8

        Form_KeyUp 52, 0

        prev_i1 = 0

    Case 16

        Form_KeyUp 53, 0

        prev_i1 = 0

    Case 32

        Form_KeyUp 54, 0

        prev_i1 = 0

    Case 128

        Form_KeyUp 55, 0

        prev_i1 = 0

    End Select

    Select Case i1

    Case 32

        Form_KeyUp 57, 0

        prev_i1 = 0

    Case 128

        Form_KeyUp 56, 0

        prev_i1 = 0

    End Select

End Sub

​