i = Format(i + 1, "000") 这句没什么用处，不要了打开文件改成这样Image1.Picture = LoadPicture("E:\工作\VB软件\三维重建\新建文件夹\00" & i & ".emf")
1.对象没有实例化2.缺少image控件3.没给变量i赋值
