Dim say As Long

        Dim w As Long

        Dim deger As Double

        Dim yuzde As Double

        Dim lastInt As Integer

        Dim son As Integer

        lastInt = 0

        w = Me.pb_cerceve.Width

        

        For say = 1 To 10000

        

            deger = say * w / son

            yuzde = say * 100 / son

            

            If (Int(yuzde) <> lastInt) Then

                lastInt = Int(yuzde)

                Call RunProgressBar(Me.pb_item, deger)

                Me.pb_lbl.Caption = "Veriler Güncelleniyor... % " & Int(yuzde)

            End If

        

        Next

örnek mi soru mu?

örnek

32 bitte zaten progresbar var ne gereği var labelle mabelle  yada başka şeylerle

Gerçi son office 64 bit versiyonlarındada progresbar var.Bence macera bu işler