在VB中给窗体加墙纸
源程序如下：（假设ｆｏｒｍ１为主窗体）
Ｄｅｃｌａｒｅ Ｓｕｂ ｂｉｔｂｌｔ Ｌｉｂ ＂ＧＤＩ＂（ＢｙＶａｌ ｈＤｅｓｔＤＣ Ａｓ Ｉｎｔｅｇｅｒ，ＢｙＶａｌ ｘ Ａｓ Ｉｎｇｅｇｅｒ，ＢｙＶａｌ ｙ Ａｓ Ｉｎｔｅｇｅｒ，ＢｙＶａｌ ｎＷｉｄｔｈ Ａｓ Ｉｎｔｅｇｅｒ，ＢｙＶａｌ ｎＨｅｉｇｈｔ Ａｓ Ｉｎｔｅｇｅｒ，ＢｙＶａｌ ｈＳｒｃＤＣ Ａｓ Ｉｎｔｅｇｅｒ，ＢｙＶａｌ ＸＳｒｃ Ａｓ Ｉｎｔｅｇｅｒ，ＢｙＶａｌ ＹＳｒｃ Ａｓ Ｉｎｔｅｇｅｒ，ＢｙＶａｌ ｄｗＲｏｐ Ａｓ Ｌｏｎｇ） ’这一句可以从ＶＢ程序组中的Ｗｉｎｄｏｗｓ ３．１ ＡＰＩ中拷贝得到
Ｓｕｂ ｆｉｌｌｗｉｎｄｏｗ（） ’实现上述功能的子程序
ｘｘ＝Ｉｎｔ（ｆｏｒｍ１．Ｗｉｄｔｈ／ｐｉｃ．Ｗｉｄｔｈ＋．５）
ｙｙ＝Ｉｎｔ（ｆｏｒｍ１．Ｈｅｉｇｈｔ／ｐｉｃ．Ｈｅｉｇｈｔ＋．５）
ｆｏｒｍ１．ＡｕｔｏＲｅｄｒａｗ＝Ｔｒｕｅ
Ｆｏｒ ｉ＝１ Ｔｏ ｘｘ
Ｆｏｒ ｊ＝１ Ｔｏ ｙｙ
ｂｉｔｂｌｔ ｆｏｒｍ１．ｈＤＣ，（ｉ－１）＊ｐｉｃ．Ｗｉｄｔｈ／１５，（ｊ－１）＊ｐｉｃ．Ｈｅｉｇｈｔ／１５，ｐｉｃ．Ｗｉｄｔｈ，ｐｉｃ．Ｈｅｉｇｈｔ，ｐｉｃ．ｈＤＣ，０，０，＆ＨＣＣ００２０
Ｎｅｘｔ ｊ
Ｎｅｘｔ ｉ
ｆｏｒｍ１．ＡｕｔｏＲｅｄｒａｗ＝Ｆａｌｓｅ ’这两句是将内存中的图像刷新成现在所显示的图像
ｆｏｒｍ１．Ｃｌｓ
Ｅｎｄ Ｓｕｂ
Ｓｕｂ Ｆｏｒｍ－Ｌｏａｄ（）
ｐｉｃ．ＢｏｒｄｅｒＳｔｙｌｅ＝０
ｐｉｃ．ＡｕｔｏＳｉｚｅ＝Ｔｒｕｅ
ｐｉｃ．ｖｉｓｉｂｌｅ＝ｆａｌｓｅ
ｐｉｃ．Ｐｉｃｔｕｒｅ＝ＬｏａｄＰｉｃｔｕｒｅ（＂ｃ：＼ｗｉｎｄｏｗｓ＼ｚｉｇｚａｇ．ｂｍｐ＂）
’这是Ｗｉｎｄｏｗｓ中原有的墙纸图案，你也可以将其改成其它文件名
Ｅｎｄ Ｓｕｂ
Ｓｕｂ Ｆｏｒｍ－Ａｃｔｉｖａｔｅ（）
ｆｉｌｌｗｉｎｄｏｗ
’设定在窗体被激活时执行了程序，保证在程序一执行，就可以显示背景
Ｅｎｄ Ｓｕｂ
再把素材光盘上的一些精美墙纸图案利用上去，不费吹灰之力，一个令人炫目的背景就出来了，这样，你就轻松完成了完美的“装潢工作”了！