Estoy tratando de hacer un cubo de rubik en vb y por algun motivo, en la clase Rubik, cada vez que añado una cara nueva todas las anteriores se hacen del mismo color.
Public Class Form1 Dim rkCube As New Rubik Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load rkCube.start() End Sub Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint Dim x As Integer, y As Integer For l = 1 To 3 For c = 1 To 3 x = c * 50 - 50 + 1 y = l * 50 - 50 + 1 rubikBox.CreateGraphics().FillRectangle(New SolidBrush(rkCube.cube(0)(0)(0)), x, y, 49, 49) Next Next End Sub End Class Public Class Rubik Public _color As Color, line As New List(Of Color), face As New List(Of List(Of Color)), cube As New List(Of List(Of List(Of Color))) Function start() For f = 1 To 6 'faces face.Clear() For l = 1 To 3 'lines Select Case f Case 1 _color = Color.Red Case 2 _color = Color.Blue Case 3 _color = Color.Orange Case 4 _color = Color.Green Case 5 _color = Color.White Case 6 _color = Color.Yellow End Select line.Clear() For c = 1 To 3 'color line.Add(_color) Next face.Add(line) Next cube.Add(face) Next End Function End Class