Hi Guys!

I used the following code to draw some shapes:

Dim item(10) As VB.shape
Private Sub Form_Load()
Dim a As Integer
For a = 0 To 9
Set shape(a) = Form1.Controls.Add("VB.Shape", "shp" & a)
item(a).Visible = True
item(a).Left = 1800 + (a * 150)
item(a).Top = 1500 + (a * 150)
Next
End Sub

It work fine but then I want to save these shapes into a bitmap. I used the Savepicture statement:

SavePicture Form1.image, "image.bmp"

but all it did was it saved the form without any of the shapes (i.e it was a blank form)

Any advise? Thanks in advance!

ps. all i want to do is to draw multiple shapes with flexibility of control and save them into a bitmap. am open to all suggestions.