帮忙看一下有什么错！

Question

Private Sub Command1_Click()
Picture2.Picture = Picture2.PaintPicture(Picture1.Picture, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, Picture1.Width, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, &HCC0020)
End Sub
它老提示缺少函数或变量。

Answer 1

试试这个：
Call Picture2.PaintPicture(Picture1.Picture, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, &HCC0020)
另外，必须保证Picture1里面有图片。对于最后一个参数，不同图片格式有所不同：
可选的。是长型值或仅由位图使用的代码。它用来定义在将 pictur 绘制到 object 上时对 picture 执行的位操作（例如， vbMergeCopy 或 vbSrcAnd 操作符）。关于位操作符常数的完整列表，请参阅 Visual Basic Help 文件中的 RasterOp Constants 主题。 
在使用opcode时有一些限制。例如，如果资源是图标或图元文件，则只能使用 vbSrcCopy，而不能使用其他的opcode；并且，与图案 (或 SDK 术语中的"画笔")，如 MERGECOPY、 PATCOPY、 PATPAINT 和 PATINVERT，相交互的opcode实际上是同目标的 FillStyle 属性交互。注意   Opcode 用于将按位操作传递到位图。当传递其他图象类型时将一个值给该参数会造成“无效过程调用或参数”错误。这是设计的原因。要避免这个错误，对于除位图外的图象，将 Opcode 参数置为空。