Todo lo que has dicho es correcto.

solo por aclarate FiThen funciona con valores Booleanos con solo poner true como te lo a mostrado Mr. Frogs es suficiente, al iggual que tan solo poner la variable tipo Boolean.

Dulces Lunas!¡.

a ok ya entendi xD

estaba pensando como si fuera una variable tipo string xD

ahora me surgio otra duda xD

a ver he borrado todos los command button menos el primero que era para crear una nueva partida y el commandbutton2 que era el primero de los que decian que casilla se marca, pero ahora no se como hacer para que cuando se aprete el primer commandbutton se ponga una x o un O en el primer label y que cuando se aprete el commandbutton2 pero de index 1 se ponga una X o un O en el segundo label, no se si me explico, que cuando creo una matriz de controles no se como hacer para poner codigos distintos a cada uno

a si cuando agregas una matriz de controles se agrega en los eventos un aprametro llamado index de tipo integer, este sirve para identificar a dicho control...

 
Private Sub Command1_Click(Index As Integer)
    Select Case Index
 
        Case 0
            '   //  Codigo de un boton
        Case 1
            '   //  Codigo de un boton
        Case n..
            '   //  Codigo de un boton
        Case Else
            '   //  De donde carajo salio este Index?
    End Select
End Sub
 
 

Dulce Infierno Luanr!¡.

Creo que es Bueno aprovechar todo lo que tenemos a mano.,
El código que coloqué no tiene ninguna restricción y/o problema cumple las reglas

SaluDOS!!!

HOLA!!!
EL FORM:
(una matriz de controles de labels llamado lbl del index 0 al 8)
Ubicados asi:
lbl(0)   lbl(1)   lbl(2)
lbl(3)   lbl(4)   lbl(5)
lbl(6)   lbl(7)   lbl(8)

Mi codigo:

Option Explicit
Dim CT As Integer
Dim X As Integer 'PARA EL BUCLE
 
Private Sub Form_Load()
    Call BORRAR_LBL
End Sub
 
Private Sub lbl_Click(Index As Integer)
Dim SIGNO As Byte
Dim GANO As Boolean
    If lbl(Index).Caption = "X" Or lbl(Index).Caption = "O" Then Exit Sub
    If CT = 9 Then Call BORRAR_LBL
    CT = CT + 1
    If CT Mod 2 = 0 Then SIGNO = 79 Else SIGNO = 88
    lbl(Index).Caption = Chr(SIGNO)
    lbl(Index).ForeColor = vbBlack
    GANO = False
    For X = 1 To 3
        'HORIZONTALES
        If lbl(X * 3 - 1).Caption = lbl(X * 3 - 2).Caption And lbl(X * 3 - 2).Caption = lbl(X * 3 - 3).Caption Then
            GANO = MsgBox("GANADOR " & lbl(X * 3 - 1).Caption)
        'VERTICALES
        ElseIf lbl(-1 + X).Caption = lbl(2 + X).Caption And lbl(2 + X).Caption = lbl(5 + X).Caption Then
            GANO = MsgBox("GANADOR " & lbl(-1 + X).Caption)
        End If
    Next
    'DIAGONALES
    If lbl(0).Caption = lbl(4).Caption And lbl(4).Caption = lbl(8).Caption Then
        GANO = MsgBox("GANADOR " & lbl(0).Caption)
    ElseIf lbl(2).Caption = lbl(4).Caption And lbl(4).Caption = lbl(6).Caption Then
        GANO = MsgBox("GANADOR " & lbl(6).Caption)
    End If
    If GANO = True Then Call BORRAR_LBL
End Sub
 
Private Sub BORRAR_LBL()
    For X = 0 To 8
        lbl(X).Caption = X + 1
        lbl(X).ForeColor = lbl(X).BackColor
    Next
    CT = 0
End Sub
 
 

GRACIAS POR LEER!!!