textbox isimlerine değişken atama

[crpzz37]

selamunaleyküm
benim 20 tane textboxum var 20 side .visible=false durumunda
ben bir sayı girdiğimde mesela 5 tane textbox .visiblelerini =true olmasını istiyorum ama beceremedim


textbox1
textbox2

diye 20 ye kadar olduğu için

dim adet as integer
adet =cdbl(textbox21.text)
for i=1 to adet
textbox(i).visible=true
next i

gibi denedim ama olmadı
yardımcı olursanız sevinirim

 

[Orion1]

Buyurun.

Dim adet As Byte
adet = TextBox21.Text
For i = 1 To adet
Me.Controls("TextBox" & i).Visible = True
Next i

 

[Mahmut Bayram]

Dim x As Long
    For x = 1 To 20
        Me.Controls("TextBox" & x).Visible = True
    Next x

 

[crpzz37]

EyvAllah saolun