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
I completely understand; this is insane
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
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
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