プログレスバーの向きを逆にする方法 (ID:91881)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 こんなのとか。 Dim i As Long Dim pWidth As Long Dim pHeight As Long pWidth = Picture1.ScaleWidth - 1 pHeight = Picture1.ScaleHeight - 1 Picture1.Cls For i = pWidth To 0 Step -1 Picture1.Line (i, 0)-(pWidth, pHeight), vbBlue, BF Picture1.Refresh Next i