模块里的代码:
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