... Chụp ảnh màn hình vào một Picture home Xuất xứ : www.ttvnol.com Binh khí sử dụng : Một Picture và một CommandButton Đoạn mã : Private Declare Function ... Dim h As Long Picture1 .Cls wScreen = Screen.Width \ Screen.TwipsPerPixelX hScreen = Screen.Height \ Screen.TwipsPerPixelY Picture1 .ScaleMode = vbPixels w = Picture1 .ScaleWidth h = Picture1 .ScaleHeight ... = vbPixels w = Picture1 .ScaleWidth h = Picture1 .ScaleHeight hdcScreen = GetDC(0) r = StretchBlt (Picture1 .hdc, 0, 0, w, h, hdcScreen, 0, 0, wScreen, hScreen, vbSrcCopy) End Sub ...