[RESOLVED] how can create label control dynamically inside a Pictrebox control with transparent

[Noob13]

Dim rb_() As PictureBox
        Dim lb_() As Label
        Dim Array_Size As Integer = 6
        ReDim rb_(Array_Size)
        ReDim lb_(Array_Size)
        For i = 1 To Array_Size
            rb_(i) = New PictureBox
            rb_(i).Name = "Picturex" & i
            rb_(i).Top = 44 * i
            rb_(i).Image = ControlX1.Image
            rb_(i).SizeMode = PictureBoxSizeMode.AutoSize
            Me.Controls.Add(rb_(i))
            rb_(i).BringToFront()

            lb_(i) = New Label
            lb_(i).Name = "Labelx" & i
            lb_(i).Top = rb_(i).Top + 10
            lb_(i).Left = 35
            Me.Controls.Add(lb_(i))
            lb_(i).Parent = rb_(i)
            'lb_(i).BackColor = Color.Transparent
            lb_(i).BringToFront()
            lb_(i).ForeColor = Color.White
            lb_(i).Text = "[1]" & vbCrLf & "000000000000000"
            lb_(i).AutoSize = True
            lb_(i).Refresh()
            Next

Label transparent Dosn`t Working !?

[.paul.]

try:

rb_(i).Controls.Add(lb_(i))

[Edgemeal]

Reorginized it a bit, add label to pic box..,

For i = 1 To Array_Size
    rb_(i) = New PictureBox
    lb_(i) = New Label

    With rb_(i)
        .Name = "Picturex" & i.ToString
        .Top = 44 * i
        .Image = ControlX1.Image
        .SizeMode = PictureBoxSizeMode.AutoSize
        ' add pic box to Form
        Me.Controls.Add(rb_(i))
        .BringToFront()
        ' add label to pic box
        .Controls.Add(lb_(i))
    End With

    With lb_(i)
        .Name = "Labelx" & i
        .Top = 10
        .Left = 35
        .AutoSize = True
        .BackColor = Color.Transparent ' < Label backcolor = transparent 
        .ForeColor = Color.White
        .Text = "[1]" & vbCrLf & "000000000000000"
    End With

Next

EDIT Too slow.

[Noob13]

Sorry Dosn`t work
I can`t see Label !

[.paul.]

try changing the forecolor

[Noob13]

Thankx Edgemeal its Work!

Dim Array_Size As Integer = 6
Dim lb_() As Label
Dim rb_() As PictureBox
ReDim rb_(Array_Size)
ReDim lb_(Array_Size)
For i = 1 To Array_Size
rb_(i) = New PictureBox
lb_(i) = New Label

With rb_(i)
.Name = "Picturex" & i.ToString
.Top = 44 * i
.Image = ControlX1.Image
.SizeMode = PictureBoxSizeMode.AutoSize
' add pic box to Form
Me.Controls.Add(rb_(i))
.BringToFront()
' add label to pic box
.Controls.Add(lb_(i))
End With

With lb_(i)
.Name = "Labelx" & i
.Top = 10
.Left = 35
.AutoSize = True
.BackColor = Color.Transparent ' < Label backcolor = transparent
.ForeColor = Color.White
.Text = "[1]" & vbCrLf & "000000000000000"
End With
Next

[Noob13]

How to modify label.text !?

For x As Integer = Me.Controls.Count - 1 To 0 Step -1
Dim b As Label = TryCast(Me.Controls(x), Label )
If b IsNot Nothing AndAlso b.Tag IsNot Nothing Then
b.text = b.Name
End If
Next

I add Tag To Label
I Know Problem With "Me.Controls" Because Label Created With Picture
Plz Help
Thankx

[Noob13]

For i As Int32 = 1 To 10
Dim btns = Me.Controls.Find("Labelx" & i, True)
If btns.Length > 0 Then
btns(0).Text = "NelLabel"
End If
Next