VB 加载损坏图片文件时程序被卡死的问题

Me.imgAD.Picture = LoadPicture(sAPPPath & "\Picture\AD.jpg")
请教:就这句加载图片的代码,今天发生这种情况,EXE程序运行老不显示窗口,挂起了;后来用代码来运行检测,发现运行到这一句就卡死了,最后打开这个文件才发现这个文件无效,后来把它删除,运行程序,就正常了(注:本文件是程序自动从服务器下载的,可能是下载出了故障,有文件大小,但打不开).请问一下如何杜绝这个问题?如何判断图片是否损坏? 使用Open语句打开它。检查其头文件部分内容。

补充：VB ,  基础类