PictureBox

[manzoor]

hi,
I have a pictureBox and it contains few comboBoxes with lables, how can i loop thro all the ComboBoxes and Lables in the PictureBox?
I tried using the following code but it did not work..

    Dim c As Control
    
    For Each c In PictureBox.Controls
    	If TypeOf c Is ComboBox Then MsgBox "Comob"
	If TypeOf c Is Label Then MsgBox "Label"
    next c

Thanks
Manzoor

[BuggyProgrammer]

use picturebox.parent instead of picturebox.controls.

[MidgetsBro]

Check the container name:

Private Sub Command1_Click()
Dim c As Control
 
For Each c In Me
    If c.Container.Name = "Picture1" Then
        If TypeOf c Is ComboBox Then
            MsgBox "Combobox in the picturebox: " & c.Name
        End If
        If TypeOf c Is Label Then
            MsgBox "Label in the picturebox: " & c.Name
        End If
    End If
Next c
End Sub

[manzoor]

Originally posted by MidgetsBro
Check the container name:

Private Sub Command1_Click()
Dim c As Control
 
For Each c In Me
    If c.Container.Name = "Picture1" Then
        If TypeOf c Is ComboBox Then
            MsgBox "Combobox in the picturebox: " & c.Name
        End If
        If TypeOf c Is Label Then
            MsgBox "Label in the picturebox: " & c.Name
        End If
    End If
Next c
End Sub

Hey thanks all, MidgetsBro
it is working!