TetrisGame

Option Explicit

Private blnFirstTime As Boolean
Private strText As String * 1

Private Sub Command1_Click()
'

Call Resetform
'

End Sub

Private Sub Resetform()
'

Dim crtl As Control

For Each crtl In Me.Controls
If TypeOf crtl Is TextBox Then
crtl.Text = ""
crtl.MaxLength = 1
End If
Next crtl
blnFirstTime = True
strText = "X"
'

End Sub

Private Sub Form_Load()
'

Call Resetform
'

End Sub

Private Sub Text1_Click(Index As Integer)
'

If Text1(Index).Text <> "" Then Exit Sub
If blnFirstTime Then strText = "X" Else strText = "O"
Text1(Index).Text = strText
blnFirstTime = Not blnFirstTime
'

End Sub