SoloCodigo

e exo unas tres en raya con 2 imagens
1 imagen la x en la cual hay 3 una matriz lo mismo con el circulo ayudarme a terminar
tngo un picture con varios shapes para hacer los cuadros de las tres en raya






Option Explicit
Dim Ocupado(6), Usada(6) As Boolean
Dim Pieza As Integer

Private Sub Image_Click(Index As Integer)
Usada(Index) = True
Ocupado(Index) = False
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Image1(1).Left = X
Image1(1).Top = Y
End If

If Button = 2 Then
Image2(1).Left = X
Image2(1).Top = Y
End If

End Sub