Zobrazenφ ukazatele pr∙b∞hu ve StatusBaru

Procedura:
' P°esune a zm∞nφ velikost prvku ProgressBar tak, ₧e bude v panelu prvku StatusBar
' Poslednφ argument je index panelu.

Sub MoveProgressBarIntoPanel(pb As ProgressBar, sb As StatusBar, _
    pnlIndex As Integer)

    Dim deltaY As Single, pnl As Panel, y As Single
    
    deltaY = pb.Parent.ScaleY(2, vbPixels, vbTwips)
    Set pnl = sb.Panels(pnlIndex)
    pnl.Bevel = sbrNoBevel
    y = pb.Parent.ScaleHeight - sb.Height
    
    pb.Move pnl.Left, y + deltaY, pnl.Width, sb.Height - deltaY
    pb.Visible = True
    pb.ZOrder

End Sub

Zp∞t