'捕捉图片 TakeA 屏幕左边, 屏幕上边, 图片宽, 图片高, 显示在哪(Image)个控件上 Function TakeA(PL As Integer, PH As Integer, TL As Integer, TH As Integer, Pic As PictureBox) Dim SourceDC, DestDC, Bhandle, Wnd, Dhandle SourceDC = CreateDC("DISPLAY", 0, 0, 0)