请问怎么生成正确的图片文件？
情况：1、一个窗体，中间从上到下排列一个shape，一个label，一个textbox，command2，command1。源码：
Private Sub Command1_Click()
Randomize
Form1.AutoRedraw = True
SavePicture Form1.Image, "c:\a.bmp"
End Sub
Private Sub Command2_Click()
Shape1.BackStyle = 1
Shape1.BackColor = QBColor(0)
End Sub
设想：先点command2，使shape变色，再在textbox中任意输入，如12345，然后再点command1，把整个窗体保存为a.bmp，这张图片包含shape，label，textbox，但不含command1，command2。
请问，1，为什么存出来的图片上是一片空白？源码上怎么修改？
2，源码上怎么修改才能实现图片包含shape，label，textbox，但不含command1，command2？
谢谢啦！
