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