例：三种列表框组合使用，达到同步效果。 Private Sub Drivel Change() Dir1.Path Drivel.Drive End Sub Private Sub Dirl Change() Filel.Path Dir1.Path End Sub 1010 Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub 例：三种列表框组合使用，达到同步效果