progressbar do "pola"

Code:
Private Sub Form_Load()
    Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
    ProgressBar1.Value = ProgressBar1.Value + 10
    If ProgressBar1.Value >= ProgressBar1.Max Then
        ProgressBar1.Value = 0
    End If
End Sub

Code:
Dim pocetnavrednost As Integer
Dim korak As Integer

Private Sub Form_Load()
    pocetnavrednost = Picture2.Left
    Timer1.Interval = 100
    korak = 100
End Sub

Private Sub Timer1_Timer()
    Picture2.Left = Picture2.Left + korak
    If Picture2.Left > Picture1.Width Then
        Picture2.Left = pocetnavrednost
    End If
End Sub

Code:

'Coded by Shadowed
'Purpose: showing responsitivity of aplication, operation in progress of onknown duretion
'Licence: MIT licence - http://opensource.org/licenses/mit-license.php

Dim MyRec As Rectangle  'Rectangle drawed on PictureBox

Private Type Rectangle
    x As Integer        'x coordinate
    y As Integer        'y coordinate
    Height As Integer   'height of rectangle
    Width As Integer    'width of rectangle
End Type
Private Sub DrawRectangle(aPictureBox As PictureBox, Rec As Rectangle)
    Dim i As Integer
    
    aPictureBox.Cls
    For i = Rec.x To Rec.x + Rec.Width
        aPictureBox.Line (i, y)-(i, y + Width), vbHighlight
    Next i
End Sub

Private Sub Form_Load()
    MyRec.Height = pcbProgress.Height
    MyRec.Width = 50
    MyRec.y = 0
    MyRec.x = -MyRec.Width
End Sub

Private Sub tmrProgress_Timer()
    With MyRec
        If .x < (.Width + pcbProgress.Width) Then
            .x = .x + 1
        Else
            .x = -.Width
        End If
    End With
    Call DrawRectangle(pcbProgress, MyRec)
    DoEvents
End Sub

Code:

Private Sub DrawRectangle(aPictureBox As PictureBox, Rec As Rectangle)
    
    aPictureBox.Cls
    aPictureBox.DrawWidth = Rec.Width
    aPictureBox.Line (Rec.x, Rec.y)-(Rec.x, Rec.y + Rec.Height)

End Sub