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

Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub —————————————————————————————— Private Sub File1_Click() SelectedFile = File1.Path & "\" & File1.FileName Iamge1.Picture = LoadPicture(SelectedFile) End Sub —————————————————————————————— 虚线之间的这段代码有什么问题吗？每次运行程序都提示：实时错误“424”，要求对象，请高手指点，谢谢！

哈哈哈……