Visual Basic Foro

Saludos Estoy generando un label virtualmente, conjuntamente con un control picbox relamente los labels vienen desde una table osea pueden ser mas de uno en todo caso, esto es para meterlo en un control FlowLayoutPanel todo bien, pero cuando quiero cambiar la propiedad de este label al seleccionar el evento click del picbox no logro dar con el label que le corresponde a ese picbox. Osea al pasarle el sender del objeto encuentra que no es tipo label sino picbox y no logro cargarle las propiedades al label de su clase. Aunque le diga que es label ni asi ni nada y no encuentro nada en la red aun con relacion a esto.

Le agrego algo del code en cuetion para ver si me dan ualgo de Luz THKS...

Public Sub Crea_Picture()
      For L As Integer = 0 To UBound(maCtrl, 2)

            Dim nPic As PictureBox = New PictureBox
            nPic.Name = "pic" + L.ToString("000")

            If Not IsDBNull(maCtrl(4, L)) Then

                Dim f As MemoryStream
                f = New MemoryStream(CType(maCtrl(4, L), Byte()))

                nPic.Image = Image.FromStream(f)
            Else

                nPic.Image = Nothing

            End If

            nPic.SizeMode = PictureBoxSizeMode.StretchImage

            Dim nbtn As Label = New Label
            nbtn.Name = "lbl" + L.ToString("000")
            nbtn.Text = maCtrl(1, L)
            nbtn.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
            nbtn.ForeColor = System.Drawing.Color.White
            nbtn.Location = New System.Drawing.Point(15, 141)
            nbtn.Size = New System.Drawing.Size(172, 22)
            nbtn.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
            '

            Dim LPanel1 As TableLayoutPanel = New TableLayoutPanel
            LPanel1.ColumnCount = 1
            LPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!))

            'Me.TableLayoutPanel1.Location = New System.Drawing.Point(3, 3)
            LPanel1.Name = "TLPanel1"
            LPanel1.RowCount = 2
            LPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 141.0!))
            LPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!))     
            LPanel1.Size = New System.Drawing.Size(150, 170)
            'LPanel1.TabIndex = 0

            LPanel1.Controls.Add(nPic, 0, 0)
            LPanel1.Controls.Add(nbtn, 0, 1)
            nPic.Size = New System.Drawing.Size(145, 145)
            nPic.Location = New System.Drawing.Point(3, 3)
            nbtn.Dock = DockStyle.Fill
            Me.FLPanel1.Controls.Add(LPanel1)

            AddHandler nPic.Click, AddressOf mytxtbtn_Click

 End Sub

Private Sub mytxtbtn_Click(ByVal sender As Object, ByVal e As EventArgs)
        Dim paso As Boolean = False
        Dim LPanel1 As TableLayoutPanel = New TableLayoutPanel
        'Dim LblActivo As Label

        '************* llamar rutina agregar a la Lista ************
        Dim npos As Integer = maCtrl(0, Microsoft.VisualBasic.Right(CType(sender, PictureBox).Name, 3))
        Dim NameIngrediente As String = maCtrl(1, Microsoft.VisualBasic.Right(CType(sender, PictureBox).Name, 3))
        Dim ItemCodeIngrediente As String = maCtrl(1, Microsoft.VisualBasic.Right(CType(sender, PictureBox).Name, 3))

        LblActivo.Name = "lbl" + Microsoft.VisualBasic.Right(CType(sender, PictureBox).Name, 3)   'No sale esta vayna
       Type(sender, Label).ForeColor = System.Drawing.Color.White   'Tampoco Asip


       'MsgBox("npos: " + CType(sender, PictureBox).BorderStyle)
        If CType(sender, PictureBox).BorderStyle = BorderStyle.None Then
            AgregarYN = 1
            CType(sender, PictureBox).BorderStyle = BorderStyle.Fixed3D
        ElseIf CType(sender, PictureBox).BorderStyle = BorderStyle.Fixed3D Then
            AgregarYN = 0
            CType(sender, PictureBox).BorderStyle = BorderStyle.None
        End If
        Call AgregarIngredienteLista(AgregarYN, NameIngrediente, ItemCodeIngrediente)

End Sub


NO se si me doy a entender porque casi ni yo mismo me entiendo XD.

Hi! Leandro no funciono en la Pc del cliente donde tengo vista incluso lo instale en otra con Xp y tampoco funciona tambien instale el update de common 6 y nada no se a que se debe...

PS: en las Pc clientes no esta instalado el Vb6 solo llevo el instalador de mi Aplicacion hecho con Visual Studio Installer creo k la 1.0

Saludos...

Saludos como estan todos esta chulo la web y el foro ni se diga estas concentrando un grupo de intelectuales en la programacion  y eso nos beneficia a todos 

Bueno a lo mio, alguien a trabajado con este control de leandro en win vista o 7, lo he aplicado en una aplicacion para vista y los iconos en el toolbar no se ven, Claro tengo el ultimo update para common y no se ven de culakier forma si alguien me puede sacar de las dudas os agradeceria 
En Win Xp no hay problema pero en vista si..
Ah se me olvidaba el control es este...

Control cSubclassToolBar