DirListBoxに表示されるフォルダをシングルクリックしてパスを取得するには？

---

下記の処理において、ダブルクリックではなく、シングルクリックでフォルダのパスを取得したいのですが、どうすれば可能でしょうか？

＜現在の処理＞
DirListBoxに表示されたフォルダアイコンをダブルクリックすると、下位のフォルダが展開表示されます。
その時に発生するイベントプロシージャ「change」で下記のような処理を行い、ダブルクリックしたフォルダのパスを「TestPath 」に取得しています。

Private Sub Dir1_Change()
  dim TestPath as string

    'フォルダのパスを取得
    TestPath = Dir1.Path

End Sub

よろしくお願いいたします。

編集 削除

---

以下のコードを追加すれば良いと思います
 
Private Sub Dir1_Click()
    If Dir1.List(Dir1.ListIndex) <> Dir1.Path Then
        Dir1.Path = Dir1.List(Dir1.ListIndex)
    End If
End Sub

編集 削除

---

名前

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

本文

←解決時は質問者本人がここをチェックしてください。