画面の再描画で困っております。

あるボタンを押した後にレスポンスウィンドウを開き、そのOpenイベントの中で
ループ処理をさせているのですが、ループ10件単位で画面のスタティックテキスト
カウンタ表示として値をセットしています。
そこで困ったことに、ウィンドウがフォーカスを失ったり(別のアプリ等を開いたりして)、
そのウィンドウをクリックしたりすると画面描画が止まり応答なし状態になってしまいます。
処理は確実に動いているのですが、見た目上固まった感じに見えてよろしくありません。

カウンタセットのタイミングでWindowのRedrawや、スタティックテキストのRedraw、
画面のShow()関数、またはメッセージのYield()関数など、実行タイミング等も色々
変えて試してみてるのですが、どうもうまく行きません。

　for l_row = 1 to dw_csv.rowcount()
　　if mod(l_row,10) = 0 then
　　　st_current.text = string(l_row)
　　　this.show()
　　　setredraw(true)
　　　st_current.setredraw(true)
　　　Yield()
　　end if

　　// 重い処理
　　// ・
　　// ・
　　// ・
　next

過去ログを検索して目ぼしい事は大抵試してみたのですがだめでした。
画面の再描画を確実にさせる良い方法を知っておられましたら教えて頂けないで
しょうか？

OS:Windows XP Pro SP2
PB:9.0.1 Build 6533J
DB:Oracle 10.2