ProgressBar Kodunun Revize Edilmesi

[Seyit Tiken]

Arkadaşlar kolay gelsin,
Şöyle bir kodum var, bu kodu sayfa üzerinde Metin Kutusu(TextBox) için nasıl revize edebiliriz?
Yani, Metin Kutusunun minimum olan uzunluk ölçüsünü, döngüyle aşağı doğru genişletilmesi.

ProgressBar1.Min = 0
ProgressBar1.Max = 10000
For i = 0 To 10000
DoEvents
ProgressBar1 = i
Next
ProgressBar1.Visible = False

 

[Seyit Tiken]

Arkadaşlar şöyle bir çözüm geliştirdik.

For i = 1 To 100
Sayfa1.Shapes("TextBox 1").Height = (i / 100) * 250
DoEvents
Next i