把窗体,"打印"  到 picture 控件

再用 picture1.point(x,y)

 

窗体被别的程序盖住时可行,最小化时,窗体只有一个标题栏

 

Private Declare Function PrintWindow Lib "user32" (ByVal SrcHwnd As Long, ByVal DesHDC As Long, ByVal uFlag As Long) As Long

'把窗体form1  打印到 窗体form2.picture1      pictuer1的autoredraw 属性要为true

Private Sub Command1_Click()

Call PrintWindow(Form1.hWnd, Form2.Picture1.hDC, 0)

Debug.Print Form2.Picture1.Point(100, 100)

End Sub