'// Dein HF, Form_Load
Dim f As New Form
Dim p As New ProgressBar
p.Maximum = nnn
p.Minimum = nnn
'// evtl.:
'// f.Size = New Size(x,y)
'// p.Size = New Size(x,y)
f.Controls.Add (p)
f.TopMost = True
f.Show()
Application.DoEvents()
 
'// Dein Code:
For Each ....
  p.PeformStep()
  If (p.Value Mod 4 = 0) Then
    Application.DoEvents()
  End If
Next
 
f.Close()