我想知道你是想改变Form背景,还是Form的图标如果是背景请用:set form1.picture=LoadPicture("图片完整路径")只能是GIF,BMP,JPG,不能用PNG因为VB的IpictureDisp不能装载32位图像。如果是图标请用:Set Form1.Icon = LoadPicture("图片完整路径")Ico,Cur。同样不能加载有半透明的图标。如果你真想用,就用GDI+加载吧。不过GDI+对32位Ico也有BUG