Paso 4: Las cajas
36. insertar código siguiente entre Private Sub y End Sub para cada caja:
'Nota: Asegúrese de que la forma números corresponden con la caja en.'
Si PlayerTurnLabel.Text = entonces "vuelta del rojo"
LineShape1.Visible = True
LineShape2.Visible = True
ElseIf PlayerTurnLabel1.Text = "Azul vuelta" entonces
OvalShape1.Visible = True
End If
' Si es rojo, hará que cruz aparece al hacer clic en un cuadro. Si es azul, un círculo.'
Si PlayerTurnLabel.Text = entonces "vuelta del rojo"
PlayerTurnLabel.Text = "Azul vuelta"
ElseIf PlayerTurnLabel.Text = "Azul vuelta"
PlayerTurnLabel.Text = "Vuelta de rojo"
End If
' Esto hará que las vueltas cambiar encima al hacer clic en un cuadro. Si rojo, se convertirá en azul y viceversa '
Si LineShape1.Visible = True Then
RectangleShape1.Enabled = False
ElseIf OvalShpe1.Visible = True Then
RectangleShape1.Enabled = False
End If
'Desactiva el cuadro después que haya hecho clic en'.
37. copiar y pegar el código anterior a la codificación para cada una de las cajas, solo hacer que a cambio los números de a fósforo de la forma!