リストボックスの小ネタ

　リストボックスで複数選択（MultiSelect）にした場合の、リストのスクロール方法。
　複数選択（MultiSelect）をしない場合は、Valueとかでぽんと飛べますが、複数選択モードだとこれはできません。が、以下の手順で問題なければ、任意の場所へ移動できます。

　1.連結列（BoundColumn）を「0」に設定する。
　2.リストボックスにフォーカスを移す。
　3.ListIndexに目的のアイテムのIndex値をセットする。

例）一番最初のアイテムを表示

Private Sub cmdEXE_Click()

    Me.lstSYOHIN.SetFocus
    Me.lstSYOHIN.ListIndex = 0

End Sub

　画面を初期化するとき、リストのスクロール位置を一番上に戻したい場合とかに、こんな感じで。

　細かい制御をしたいときは別に策が必要ですが、とりあえず。