自作プログレスバー「ちょっと待ってて」

　下の「みてね」フォームを作る。長い作業を行う要所にMiteneJobを配置して，プログレスバー風の■が増えていく様子が分かるようにする。

Down Load -- >> 見てねフォーム.zip

　’本体
Sub main
Call MiteneJob(True)
For Each ○○ In ○○○
    Call MiteneJob(False)
Next
End sub

Sub MiteneJob(sw As Boolean)
    Static i As Single
    If sw Then i = 0
    i = i + 0.5
    If i < 1 Then i = 1
    If i > 12 Then i = 0
      If i = 1 Then
         みてね.TextBox1.Value = "■"
      Else
         みてね.TextBox1.Value = String(Int(i), "　") & "■"
      End If   
End Sub