为什么SavePicture 会出错？

我做一个测试，用到SavePicture函数，怎么有时有用，有时却保存了一张空图片？
比如下面这个就保存了一张空图片：

Private Sub Command1_Click()
Picture1.PaintPicture Image1, Image1.Left, Image1.Top, Image1.Width, Image1.Height, , , , , &HEE00C6
SavePicture Picture1.Image, App.Path & "\temp.Bmp"
End Sub
可上面的代码我几乎是从一个有用的程序中复制出来的，怎么到这就没用了呢？请高手解答。
谢谢了。