bitblt，getdc抓图

    Dim hDC As Long, sx As Integer, sy As Integer
   
    Me.Hide
    DoEvents
   
    picCopy.Width = Screen.Width
    picCopy.Height = Screen.Height
   
    picCopy.AutoRedraw = True
   
    hDC = GetDC(0)
    sx = Screen.Width / Screen.TwipsPerPixelX
    sy = Screen.Height / Screen.TwipsPerPixelY
    BitBlt picCopy.hDC, 0, 0, sx, sy, hDC, 0, 0, vbSrcCopy
    ReleaseDC 0, hDC
   
    picCopy.AutoRedraw = False
   
    SetPicture
    Me.Show