ProgressBar ilerleyişi

[teksen]

Arkadaşlar merhaba,

Aşağıdaki kodları kullanarak çalıştırdığım UserForm üzerinde ProgressBar1 in ilk 5000 inde Label1.Visible = True
10000 inde Label2.Visible = True
15000 indede Label3.Visible = True

kodlarını kullanmak istiyorum. Nereye eklememiz gerekir acaba?

Private Sub CommandButton1_Click()
ProgressBar1.Visible = True
Dim i As Integer
For i = 1 To 15000
ProgressBar1.Value = (i / 15000) * 100
DoEvents
Next i
ProgressBar1.Visible = False
End Sub

 

[Recep İpek]

Private Sub CommandButton1_Click()
ProgressBar1.Visible = True
Dim i As Integer
For i = 1 To 15000
ProgressBar1.Value = (i / 15000) * 100
Select Case i
Case 1 To 5000
Label1.Visible = True
Label2.Visible = False
Label3.Visible = False
Case 5001 To 10000
Label1.Visible = False
Label2.Visible = True
Label3.Visible = False
Case 10001 To 15000
Label1.Visible = False
Label2.Visible = False
Label3.Visible = True
End Select
DoEvents
Next i
ProgressBar1.Visible = False
End Sub

olarak deneyiniz.

 

[teksen]

Teşekkür ederim Sn.Ripek

Case olayı aklıma gelmemişti.

Elinize sağlık.