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