请问如何建立一个真正的透明窗体？

[yongtang]

请问我使用visual basic 6写程序，需要将窗体透明化

但是我试了网上的一些方法，虽然能够将窗体透明，但是连窗体上的控件也一起透明了；而且我用了网上其他一些方法是窗体能够透明又能显示控件，但是没想到只要她是去焦点后又变成不透明的了。

请问有没有什么好的办法是窗体真正的编程透明但是又不会使上面的控件也透明，而且不会因为失去焦点变成不再透明？

[TechnoFantasy]

带源程序的控件（带范例），可以通过设定窗体位图的屏蔽颜色（Mask Color）将窗体该部分设定为透明的:
http://www.applevb.com/sourcecode/TransForm%20your%20Form.rar

[踏平扶桑]

thanks

[tomy1206]

模块里的代码：
declare function greatecompatiblebitmap lib "gdi32" (byval hdc as long,byval wid as long,byval heit as long) as long
declare function selectobject lib "gdi32" (byval hdc as long,byval hobject as long) as long
form_load
private sub form_load()
dim bmp
me.autoredraw=true
bmp=greatcompatiblebitmap(me.hdc,0,0)
selectobject me.hdc,bmp
me.refresh
end sub