ho copiato ed incollato il codice nell'evento Form_Resize():

codice:
Private Sub Form_Resize()
Form1.Caption = Int(ProgressBar1.Value / ProgressBar1.Max * 100) & "%"
DoEvents
End Sub
ma resituisce:

Errore di Runtime '424':
Necessario oggetto

Comunque grazie per l'aiuto