Mark, I agree with Duh on what he's saying. I'm not trying to be a dick but trying to understand what you are actually trying to do is really making my brain hurt. I think I understand what you are going for more or less but I'm probably wrong.
Hey Bob, you are not being a d**k LOL LOL
![grin :-D](http://www.theswamp.org/Smileys/black/grin.gif)
I completely understand; this is insane
![Smiley :)](http://www.theswamp.org/Smileys/black/smiley.gif)
Listen guys; I said from "the get-go" that I know the code is not written correctly, I was merely trying to get a basic idea of what I was trying to do across. I try to articulate what I am asking the best I can but it is hard when I am not sure I know what the hell I am asking LOL
Anyhow, I have been told certain things can not be done in the past and in the end; I did get them.
The question is; is it worth the time and energy to do it? hummmm
![sad :-(](http://www.theswamp.org/Smileys/black/sad.gif)
Bob, you and CM are both correct; a Select Case Statement would have been much better and it is where I would have ended up.
I just tossed up what I had in a somewhat pseudo fashion.
The below code is pretty close Bob, I think
And yes, you are correct, we need to start the index at 0.
Man, my brain hurts too guys LOL
In any case, I am
sorry if I have permanently damaged anyone's brains LOL
I just have a philosophy; if you can conceive it, then you can achieve it.
So, with this project, I may just take the long road as the results are the same but I always "try" to be a minimalist with code.
So, just think, if anyone (including myself) can figure this one out, it could benefit us all later
![Smiley :)](http://www.theswamp.org/Smileys/black/smiley.gif)
Thanks guys!
Mark
Dim Ctrl As Control
Dim intCnt As Integer
For Each Ctrl In Form1.Controls
Select Case typeof ctrl
Case textbox
for intcnt = 1 to 20 ' seems like you should be doing 0 to 19 to me as your index should be starting at 0 but I digress
Form1.LL1L(IntCnt).Caption = Form2.TB01(intCnt).Value
Next intCnt
Case Label
for intCnt 1 to 20
'do your thing
next intcnt
Case thenextone
'etc. ad infinitum
End Select
next ctrl