vb设计屏幕截图程序

vb设计屏幕截图，api'截图模PrivateTypePALETTEENTRYpeRedAsBytepeGreenAsBytepeBlueAsBytepeFlagsAsByteEndType块Module1.bas，以下程序放入标准模块内'创建BMP位图PublicFunctionCreateBitmapPicture(ByValhBmpAsLong,ByValhPalAsLong)AsPictureDimrAsLongDimPicAsPicBmpDimIPicAsIPictureDimIID_IDispatc