質問: Nothing End With
回答: プログラムをよく確認していませんでした。 DoEvents ちゃんとLoopの前に入っていましたね。 プログレスバーはCommon Controlsを使用せず picのWidthで経過を表示しようとしていると 考えてよろしいでしょうか。 picBar.Width = (picProgress.Width / lCount) * i picProgressのWidthはpicBarのWidthの最大値に なっていますか?