標準モジュールからプログレスバーを表示するには (ID:105905)

名前

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

本文 いつもお世話になっております。sherryと申します。 タイトルが適切ではないかもしれませんが。。。 現在、フォームから標準モジュールの関数を呼び出しています。 'フォーム Private Sub ExecPrint_Click() ・ ・ Call PrintData(A,B) ・ ・ End Sub '標準モジュール Sub PrintData(A As String,B As integer) ・ ・ Do While (0 = oraDynaset.EOF) ・ ・ 処理 ・ ・ Loop ・ ・ End Sub というようなソースになっています。 フォーム内は標準モジュールで必要な数値の取得や型変換をしているだけです。 標準モジュールのLoopはデータベースから取得したデータを1件ずつ処理して降ります。 このときに、 「**件/**件中 処理完」 というメッセージを出すダイアログボックス（？）をだしたいのですが、 どのようにしたらよいのでしょうか。（できればプログレスバーを表示させたいのですが。。。） いろいろ調べてはいるのですが、Clickイベントでプログレスバーの値を増やすものしか見当たらないのです。 どなたかご存知の方がいらっしゃいましたら、ご教示お願いいたします。