ドライブとディレクトリリストボックスについての質問なんですが、



Private Sub Dir1_Change()
　　File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
　　Dir1.Path = Drive1.Drive
End Sub

Private Sub Form_Load()
　　Dir1.Path = "C:\"
　　Drive1.Drive = Left(Dir1.Path, 2)
End Sub



の様に初期値を設定しようとすると、
　　Drive1.Drive = Left(Dir1.Path, 2)
の後
Drive1_Change()
が動いてしまって初期値設定ができません。

topindexも考えたんですが、
それだと初期値が変わった時の場合分けが必要だし...
何か上手い方法はありませんか?