frmMDIParent.ToolStripProgressBar1.Value = 0
frmMDIParent.ToolStripProgressBar1.Visible = True
For i As Integer = 0 To frmMDIParent.ToolStripProgressBar1.Maximum ‐ 1
frmMDIParent.ToolStripProgressBar1.Value = frmMDIParent.ToolStripProgressBar1.Value + 1
Next