Hacer matriz de control en código
Este código no funciona. Quiero crear una matriz de control en mi Form_Load en VB6 porque tengo que hacer 225 de ellos para un scrabble board y deben ser precisos. Mi código es:
Private lblblocks(1 To 225) As Label
Private Sub Form_Load()
Dim i As Integer, j As Integer
For i = 1 To 15
For j = 1 To 15
Dim arrnum As Integer
arrnum = (i - 1) * 15 + j
Load lblblocks(arrnum)
With lblblocks(arrnum)
.Width = 1000
.Height = 1000
.Top = (i - 1) * 1000
.Left = (j - 1) * 1000
.Visible = True
.BackColor = Int(Rnd(1) * 255) + &H100 * Int(Rnd(1) * 255) + &H10000 * Int(Rnd(1) * 255)
End With
Next j
Next i
End Sub
Utilicé el backcolor para ver todas mis cajas de etiquetas. Este código no funciona. Recibo un error "Variable de objeto o Con variable de bloque no establecida". ¿Alguna ayuda? No sé qué está mal. Me gustaría mantener los cuadros de etiquetas en una matriz de control. Sé cómo hacerlo sin convertirla en una matriz de control.