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->