Load frmStatus
With frmStatus
  .Label1.Caption = "anzuzeigender Text"
  .ProgressBar1.Min = 0
  .ProgressBar1.Max = 31
  .Show , Me
 
  For I = 0 To 31    
    .ProgressBar.Value = I
    DoEvents
   ...
  Next I
End With
Unload frmStatus