Dim CheckBall As Integer
Private Sub Form_Load()
    Text1.Text = ""
    Command1(0).BackColor = &HFF&
    CheckBall = 1
End Sub

Private Sub munsub_Click()
    frmAbout.Show
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 27 Then
        Text1.Text = ""
        Command1(0).BackColor = &HFF&
        Command1(1).BackColor = &H8000000F
        Command1(2).BackColor = &H8000000F
        CheckBall = 1
    ElseIf KeyCode = 65 Or KeyCode = 66 Or KeyCode = 67 Then
        RunBall CStr(KeyCode)
        Text1.Text = Text1.Text & Chr$(KeyCode)
    End If
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii <> 65 Or KeyAscii <> 66 Or KeyAscii <> 67 Or KeyAscii <> 27 Then
        KeyAscii = 0
    End If
End Sub

Function RunBall(CodeMove As String)
    Select Case CheckBall
        Case 1
            If CodeMove = 65 Then
                Command1(0).BackColor = &H8000000F
                Command1(1).BackColor = &HFF&
                CheckBall = 2
            ElseIf CodeMove = 67 Then
                Command1(0).BackColor = &H8000000F
                Command1(2).BackColor = &HFF&
                CheckBall = 3
            End If
        Case 2
            If CodeMove = 65 Then
                Command1(1).BackColor = &H8000000F
                Command1(0).BackColor = &HFF&
                CheckBall = 1
            ElseIf CodeMove = 66 Then
                Command1(1).BackColor = &H8000000F
                Command1(2).BackColor = &HFF&
                CheckBall = 3
            End If
        Case 3
            If CodeMove = 66 Then
                Command1(2).BackColor = &H8000000F
                Command1(1).BackColor = &HFF&
                CheckBall = 2
            ElseIf CodeMove = 67 Then
                Command1(2).BackColor = &H8000000F
                Command1(0).BackColor = &HFF&
                CheckBall = 1
            End If
    End Select
End Function

    Source: geocities.com/vit054