[VB6]Modificare label dopo averla dichiarata nel Form1_Load

[sharkdrew]

Salve a tutti,riposto la discussione poichè non avevo seguito il regolamento,non postando il linguaggio di programmazione e il codice che ho scritto.
Il problema è questo: nel Sub Form1_Load ho creato delle label (90,è un programma per ricreare la tombola). Successivamente, in un altro sub attivato da un button, faccio fare l'estrazione dei numeri casuali da 1 a 90, e dovrei cambiare lo sfondo ad una delle 90 label precedentemente costruite per i numeri estratti,ma il programma non mi consente di farlo perchè sono dichiarate nell'altro sub. Potete aiutarmi con questo problema?

Codice :



Public Class Form1


Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Dim lbl As Label
Dim num As Integer

For x = 0 To 8
For i = 0 To 9
lbl = New Label()

lbl.Name = "label_" & num + 1
lbl.Text = num
lbl.Size = New Size(40, 30)

lbl.Font = New System.Drawing.Font("Microsoft Sans Serif", 15)
lbl.Location = New Point(300 + (i * 34), 35 + (x * 35))


lbl.BorderStyle = 1

num = num + 1

Me.Controls.Add(lbl)
Next
Next


End Sub


Private Sub btn1_Click(sender As System.Object, e As System.EventArgs) Handles btn1.Click
Randomize()
Dim b(89), a As Integer
a = (Rnd() * 89) + 1
If b(a) = 0 Then
lbl2.Text = "Numero estratto "
lbl1.Text = a
b(a) = 1
End If

label_a.BackColor = Color.Red


End Sub



End Class

[oregon]

Intanto questo non è VB6 ma VB.NET e poi dovresti mostrare il codice usando i tag CODE e indentato (vedi regolamento).

E poi le label non sono "create nella sub" ma fanno parte dei controlli del form. Quindi basta scrivere

Me.Controls("label_" + a.ToString()).BackColor = Color.Red