[VB6] ProgressBar in una StatusBar

[Boolean]

stai scherzando, spero!

le cose cambiano leggermente, ma lo si fa funzionare comunque

devi fare così:
nell'MDIForm, metti una picturebox, la allinei in basso e la chiami PBox

la statusbar e la progressbar, le metti "dentro" questa picturebox, e poi utilizzi questo codice, nell'evento resize dell'MDIForm:

Private Sub MDIForm_Resize()
With StatusBar1
    PBox.BorderStyle = 0
    PBox.Height = StatusBar1.Height
    .Move 0, 0, PBox.ScaleWidth, PBox.ScaleHeight
    ProgressBar1.Move .Panels(2).Left + 45, .Top + 45, .Panels(2).Width - 90, .Height - 90
    ProgressBar1.ZOrder (0)
End With
End Sub

Boolean