If Not "gpImage" $ Set("Procedure") Set Procedure To gpImage Additive EndIf gdip = CreateObject("gpInit") img = CreateObject("gpImage") img.Capture(ThisForm.hWnd) img.SaveAsBMP("form.bmp")