perchè non ti fai una function che ti crea la struttura del frame..picture..text..combo dove passi il valore di vale che utilizzerai come suffisso per i nomi dei controlli
codice:dim Frame(1000) As Frame dim picture(1000) as PictureBox dim text(1000) as textbox dim combo(1000) as combobox Set Frame(vale) = Form1.Controls.Add("vb.frame", _ "Frame" & vale, Form1) With Frame(vale) .Visible = True End With Set picture(vale) = Form1.Controls.Add("vb.picturebox", _ "Picture" & vale, frame(vale)) With picture(vale) .Visible = True End With Set text(vale) = Form1.Controls.Add("vb.textbox", _ "text" & vale, picture(vale)) With text(vale) .Visible = True End With Set combo(vale) = Form1.Controls.Add("vb.combobox", _ "combo" & vale, picture(vale)) With combo(vale) .Visible = True End With

Rispondi quotando