عکس گرفتن از صفحه دسکتاپ با vb6

سلام دوستان خسته نباشید
من امروز دنبال یک برنامه برای عکس گرفتن از دسکتاپ با(ویژوال بیسیک 6) vb6 بودم در اخر یک خوب پیدا کردم که از دسکتاپ اسکرین شات میگیره اما مشکلم اینه که این کد عکس هارو با حجم بالا ذخیره میکنه شما میتوننین به من کدی رو بگید که همین کار رو انجام بده(از صفحه عکس بگیره و ذخیره کنه) اما با حجم کم؟؟؟
کدی که من پیدا کردم:

Private Declare Function GetDesktopWindow Lib "user32" () As Long

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 Const SRCCOPY = &HCC0020





Private Sub Form_Load()



H = GetDesktopWindow()



C = GetDC(H)



Picture1.Visible = False



Picture1.AutoRedraw = True



Picture1.Width = Screen.Width



Picture1.Height = Screen.Height



BitBlt Picture1.hDC, 0, 0, Screen.Width / Screen.TwipsPerPixelX, Screen.Height / Screen.TwipsPerPixelY, C, 0, 0, SRCCOPY



SavePicture Picture1.Image, Text1.Text



End Sub