Option ExplicitPrivate Sub Command1_Click()
    Picture2.ScaleMode = 3
    Picture2.PaintPicture Picture1.Picture, 0, 0, 50, 50, 50, 50, 50, 50
    '源图形,'目标X,目标Y,目标宽,目标高,[源X],[源Y],[源宽],[源高],[位操作]
End Sub

解决方案 »

  1.   

    谢谢 griefforyou(为你伤心)
    上面这个问题已经解决!现在又有一个问题了:
    当我将 PS1的VISIBLE设定为FALSE时,复制到PD1就没有图象了!
    然后我试着将PS1的VISIBLE设定为TRUE,并将其隐藏在别的控件(比如COMMAND1)后面时,复制到PD1的图象则为别的控件(比如COMMAND1)的图象了。
    这个怎么回事啊???再请大家多多指教!
    先谢过了!
      

  2.   

    有个AutoReDraw属性(有点记不清了,大概差不多吧),将PS1的这个属性设为TRUE就行了。