'************************************** 'Windows API/Global Declarations for :A ' Way to take a screenshot '************************************** 'Check out my site at http://www.vbtutor ' .com 'Thanks Declare Function BitBlt Lib "gdi32" _ (ByVal hDestDC As Integer, ByVal x As Integer, _ ByVal y As Integer, ByVal nWidth As Integer, _ ByVal nHeight As Integer, ByVal _ hSrcDC As Integer, ByVal xSrc As Integer, _ ByVal ySrc As Integer, ByVal dwRop As _ Long) As Integer Declare Function GetDesktopWindow Lib "user32" () As Long Declare Function GetDC Lib "user32" _ (ByVal hwnd As Long) As Long Public Const SRCCOPY = &HCC0020 Public Const SRCAND = &H8800C6 Public Const SRCINVERT = &H660046 '************************************** ' Name: A Way to take a screenshot ' Description:This code simply takes a p ' icture of your desktop or a screenshot. ' I guess if you wanted to you could use t ' his to view the desktop of a computer ov ' er a network, although that would be a b ' it slow. I hope this code is of some int ' erest to some people Hope this helps. ' By: Steve (from psc cd) ' ' ' Inputs:None ' ' Returns:None ' 'Assumes:'Check out my website at http:/ ' /www.vbtutor.com 'Thanks Set the Form properties to the following: AutoRedraw True BorderStyle 0 - None WindowState 2 - Maximized ' 'Side Effects:None '************************************** 'Add this code to the form_load event 'or whatever you want to make it occur 'Get the hWnd of the desktop DeskhWnd& = GetDesktopWindow() 'BitBlt needs the DC to copy the image. ' So, we 'need the GetDC API. DeskDC& = GetDC(DeskhWnd&) BitBlt Form1.hDC, 0&, 0&, _ Screen.Width, Screen.Height, DeskDC&, _ 0&, 0&, SRCCOPY 'This code was requested by 1 visitor to ' my site 'Check out my site at http://www.vbtutor ' .com 'Thanks