Привет всем !
В VBA Excel нарисовал форму на ней две Label-самодельный ProgressBar
Не работает, а вроде как доложно
Подскажите чего тут неправильно ...чего забыл ?

Private Sub CommandButton7_Click()
Dim i As Integer
FormProgress.Label3.Width = 0
FormProgress.Show 1
For i = 1 To 3200
FormProgress.Label3.Width = i
Sleep 500
Next i
FormProgress.Hide
End Sub

Jojo®

Мое почтение :) господа

блин все просто ...если на первой форме все делать ...работает ) !!!!

но у меня созрел вопрос
У меня есть одна форма на ней кнопка начать "расчет"
по нажатии у меня вызывается вторая форма в модальном режиме
на этой форме только 2 лейбла
один белого цвета шириной 320 pt -100 % - ширина не меняется
а другой синего цвета - вот у этого объекта требуется чтоб в цикле менялась ширина ...
у меня моя появляется форма превая лейбла как была белой так и отстается ...а ведь на нее поверху должна накатить синяя и еще у меня виснет приложение


Jojo®

Спасибо big-duke - подсказал ...
Я сделал
я код прописывал в первой форме а нада было просто приписать во второй -т.е. самой где нарисованы Label ... и все ...вот млин туплю ...
хотя я же указывал типа FromProgress.Label3.Width ...

Jojo®