[簡易プログレスバー] 作業の進捗状況を表示するプログレスバーです。 サンプルでは、1秒ごとに1マスずつ増えていきます。 【ソースコード】 [tips0169.vbs] Option Explicit On Error Resume Next Dim lngLoop ' ループカウンタ Dim objIE ' IE オブジェクト Set objIE = CreateObject("InternetExplorer.Application") If Err.Number = 0 Then objIE.Width = 180 objIE.Height = 46 objIE.AddressBar = False objIE.MenuBar = False objIE.ToolBar = False objIE.Resizable = False objIE.Visible = True For