Reducing code, dynamic names

[albo]

Another simple question that i'm not familiar with in vb

In say actionsctipt etc i can reduce a lot of code by creating dynamic variable names etc

How to i transform somthing like this:

PictureBox1.Visible = False
PictureBox2.Visible = False
PictureBox3.Visible = False

Into something like this, (which i know is very wrong!):

Dim i As Integer
For i = 1 To 3
"PictureBox"&i = False
Next

Any help is much appreciated

[MarkT]

See if this helps

Private Sub Command1_Click()
Dim i As Integer
Dim pic As PictureBox

    For i = 1 To 3
        Set pic = Controls("Picture" & i)
        pic.Visible = Not pic.Visible
    Next i
End Sub

[albo]

What if its just a variable that i want to do?

like LED1, LED2, LED3

[Merri]

Create a control array:

• Create a picturebox.
• Change it's Name to PB.
• Change it's Index to 0.
• Copy PB to clipboard.
• Paste. The new control gets Index 1.
• Paste. The new control gets Index 2.

You now have three pictureboxes, all have the name PB. You can access the first one with PB(0), second with PB(1) and third with PB(2).

[westconn1]

What if its just a variable that i want to do?

try using an array

dim led() as string
redim led(3)   ' 0 to 3 = 4 elements
for i = 0 to ubound(led)
     led(i) = "element " & I
next

[Ellis Dee]

See if this helps

Private Sub Command1_Click()
Dim i As Integer
Dim pic As PictureBox

    For i = 1 To 3
        Set pic = Controls("Picture" & i)
        pic.Visible = Not pic.Visible
    Next i
End Sub

You don't need the variable; controls can be accessed by name directly.

Private Sub Command1_Click()
    Dim i As Integer

    For i = 1 To 3
        Me("Picture" & i).Visible = False
    Next
End Sub

EDIT: Though in looking back at this I'm guessing you already know this and only used a variable because you're referencing the control twice. (Visible = Not Visible) I suppose if you wanted to keep the code clean and save a variable you could use a With...End With block.