第2个回答 推荐于2016-01-14
使用LoadPicture() 函数就能加载需要的 .gif 文件
如:
按扭中的程序
Picture1.Picture=LoadPicture() '清除Picture1中原来的图片文件
Picture1.Picture=LoadPicture("D:\g001.gif") '加载新的图片文件
LoadPicture()函数中需要给出图片文件的绝对路径及文件全称
下面引自MSDN 帮助中的说明
Visual Basic 可以识别的图形格式有:位图 (.bmp) 文件、图标 (.ico) 文件、光标 (.cur) 文件,行程编码 (.rle) 文件、元 (.wmf) 文件、增强的元文件 (.emf), GIF(.gif) 文件以及 JPEG (.jpg) 文件。
VB6 中使用过了,没问题!本回答被提问者采纳