例: Private Sub Form Load() 设置初始显示d:驱动器 Drivel.Drive ="d: End Sub Private Sub Drive1 Change() 测试Change事件 Print Drive1.Drive End Sub 5 5 Private Sub Form_Load() '设置初始显示d:驱动器 Drive1.Drive = "d:" End Sub Private Sub Drive1_Change() '测试Change事件 Print Drive1.Drive End Sub 例: