Muy bien VonN, gracias por tu aporte!
Salu2!
Salu2!
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
Bien, espero tus mp's, ahora lo mejoraré.For i = 0 To 8
For j = 0 To 8
For k = 0 To 8
If j <> k Then
If Command1(cuadros(i, j)).Caption = Command1(cuadros(i, k)).Caption Then
Command1(cuadros(i, j)).FontBold = True
End If
End If
Next
Next
Next