Son Değerden Ve Kutu Genişliğinden Bağımsız Progressbar

        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