Private
Declare
Function
GetDC
Lib
"
user32
"
(
ByVal
hwnd
As
Long
)
As
Long
Private Declare Function BitBlt Lib " gdi32 " ( ByVal hDestDC As Long , ByVal X As Long , ByVal Y As Long , ByVal nWidth As Long , ByVal nHeight As Long , ByVal hSrcDC As Long , ByVal xSrc As Long , ByVal ySrc As Long , ByVal dwRop As Long ) As Long
Private Sub Command1_Click()
Private Declare Function BitBlt Lib " gdi32 " ( ByVal hDestDC As Long , ByVal X As Long , ByVal Y As Long , ByVal nWidth As Long , ByVal nHeight As Long , ByVal hSrcDC As Long , ByVal xSrc As Long , ByVal ySrc As Long , ByVal dwRop As Long ) As Long
Private Sub Command1_Click()
Me .Hide
Me .AutoRedraw = True
BitBlt Me .hDC, 0 , 0 , Screen.Width, Screen.Height, GetDC( 0 ), 0 , 0 , vbSrcCopy
SavePicture Me .Image, " C:JieTu.BMP "
End Sub