PrivateDeclareFunctionGetDesktopWindowLib"user32"()AsLong
PrivateDeclareFunctionGetDCLib"user32"(ByValhwndAsLong)AsLong
PrivateDeclareFunctionStretchBltLib"gdi32"_
(ByValhdcAsLong,_
ByValxAsLong,_
ByValyAsLong,_
ByValnWidthAsLong,_
ByValnHeightAsLong,_
ByValhSrcDCAsLong,_
ByValxSrcAsLong,_
ByValySrcAsLong,_
ByValnSrcWidthAsLong,_
ByValnSrcHeightAsLong,_
ByValdwRopAsLong)AsLong

PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)
End
EndSub

PrivateSubForm_Load()
’settheshowintaskbarpropertytofalse
’settheborderstyleoftheformtonone
Form1.AutoRedraw=True
Form1.ScaleMode=vbPixels
a=GetDesktopWindow()
b=GetDC(a)
StretchBltForm1.hdc,0,0,Screen.Width,Screen.Height,b,0,_
Screen.Height,Screen.Width,-Screen.Height,vbSrcCopy
EndSub->

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!