Create Control (Runtime)

[JasonLpz]

I know it must be possible; How do i create a control (for instance a imagebox) at runtime? Lets say i want to have a person enter a number between the number 1 and 100 and when they click a button it creates that many controls. How do i accomplish this?

[crptcblade]

Dim i As Integer, x As Integer
Dim img As Image
 
    i = 10
 
    For x = 1 To i
        Set img = Controls.Add("VB.Image","Image" & x)
            img.Move (x*10),0
            img.Visible = True
    Next

[HaxSoft]

Originally posted by crptcblade

Dim i As Integer, x As Integer
Dim img As Image
 
    i = 10
 
    For x = 1 To i
        Set img = Controls.Add("VB.Image","Image" & x)
            img.Move (x*10),0
            img.Visible = True
    Next

Is this code in a Form?

[JasonLpz]

this code has some bugs or something , im not saying you did it but like when i press play (i changes it to command button) when i press play i shows the buttons too close and some too far

[JasonLpz]

OK i did some work and decided to use a timer instead but your code was the core of it here is the final

Public i As Integer, x As Integer, y As Integer, w As Integer
 
Private Sub Form_Load()
y = 0
w = 0
End Sub
 
Private Sub Timer1_Timer()
 
Dim CMD As CommandButton
 
i = 10
y = y + 1
x = y
If x = 10 Then
Timer1.Enabled = False
    Else
            Set CMD = Controls.Add("VB.CommandButton", "Command" & x)
            CMD.Width = 500
                   
            CMD.Left = w + CMD.Width + 20
            'CMD.Move (x * 100), 0
            CMD.Visible = True
            LImg = CMD.Left
            w = CMD.Left
            
End If
End Sub