怎么使用pitcurebox的返回值

如何使用pitcurebox的返回值我用这一句来实现图片的显示Pitping.PictureLoadPicture(App.Path+\平面图\

如何使用pitcurebox的返回值
我用这一句来实现图片的显示
Pitping.Picture   =   LoadPicture(App.Path   +   "\平面图\ "   +   zhanping)
其中   zhanping   是图片的名字的字符串
当图片不存在时     就会出错   我想用返回值处理   但是   我不知道该如何处理
请问   有什么办法吗   当图片不存在时   给出提示信息   或   如何使用返回值

[解决办法]
加载前先判断是否有该文件存在不就OK了吗?
[解决办法]
可以用dir函数判断文件是否存在
[解决办法]
这样写:
Sub ShowPic(byval PictureFileName as String)
On error goto errline
picture1.picture=loadpicture(PictureFileName )
exit sub
ErrLine:
picture1.picture=loadpicture(app.path & "\Err.bmp ")
end sub

当文件不存在,或者图片文件的格式有问题时,就自动加载一个预设好的图片 "Err.bmp ",该图片默认路径就在你的程序的EXE的同一个文件夹下