Visual Basic でのDATAGRIDVIEW でのレコードセレクタ移動

Question

Visual Basic(VisualStudio2015)にて、フォームにDATAGRIDVIEW でデータベースのデータをリストして表示しております。

やりたいことはフォーム上のボタンを押した際に先頭レコードから順に最終レコードまでレコードセレクタを移動です。

現状は
ボタンクリックで先頭行の0,0セルを
dGrid.CurrentCell = dGrid(0, 0)
まずカレントレコードとして移動して先頭レコードに移動
（dGridは使用しているDatagridviewを定義しています。）
その後For～nextでレコードを進めていっております。

dGrid.CurrentCell = dGrid(0, 0)
rCount = dGrid.Rows.Count - 1
For i = 1 To rCount
   dGrid.Visible = True
   dGrid.CurrentCell = dGrid(0, i)
   dGrid.Select()
   System.Threading.Thread.Sleep(1000)
Next i

現状こんな感じのソースですが、実際はFor～next間で各レコードに対してデータ入力などの処理をしております。
ただ、各行のレコードセレクタ？選択している行の左にある黒い▲が順に移動（進んで）していかず、最終レコードまで行かないとセレクタが移動しません。

ボタンクリック時に先頭に移動して、プログラム終了後に最終レコードまで一気に移動している状況ですので、
今どの行を処理しているか視認できない状況です。

For～Next間にmsgbox("")を挟んでやると▲のセレクタが1レコードづつ進んでいきます。
動きが早すぎて見えないのか？と思い、テストでSystem.Threading.Thread.Sleep(1000)を挟んでみても駄目でした。

解決策がありましたらお願いいたします。
Microsoft ACCESSから移行してきてVBをまだ始めたばかりで根本的に間違っていたらそちらもご指摘ください。

Answer 1

大雑把な説明になります。

多分ボタンのクリックイベントに記述されていると思いますが、
このボタンクリックイベントから抜けないと新たなイベントが処理されません。
ですので、▲が最後まで移動したところで再描画されることになります。
msgbox("")を挟んでやるとメッセージボックスのためにイベントが処理されるので
再描画がしょりされ、▲が一行づつ進んで見えるようになります。
ループ内に

Application.DoEvents()

とイベントを処理するように記述すればその時点で再描画されるようになります。

Comments

[otojiro]

YAmaGNZ様
試したところばっちりです！
希望道理の動作になりました。
ありがとうございます。
＞このボタンクリックイベントから抜けないと新たなイベントが処理されません。

この部分とても勉強になりました。
今後もこの知識が役に立つ時が競うです。
ありがとうございました。