Add a shape to a picture box at run time

[mhnvb]

I am trying to add a circle to a picture box at run time.
I tried the following , but I see no shape

Dim Shape5 As Shape
Set Shape5 = Controls.Add("vb.shape", "Myshape", Me)

Shape5.BackStyle = 1
Shape5.BackColor = vbRed

The picture box is named "Pbox2"

Thanks for your help

[Max187Boucher]

Your shape is not visible

Shape5.Visible = True

[Max187Boucher]

Double post for some reason?

[firoz.raj]

I am trying to add a circle to a picture box at run time.
I tried the following , but I see no shape

Try the following ! .

Dim Shape5 As Shape
Set Shape5 = Controls.Add("vb.shape", "Myshape", Me)

shap5.visible=true

Shape5.BackStyle = 1
Shape5.BackColor = vbRed

[Max187Boucher]

Also if you want it inside picturebox do this

Set Shape5.Container = PBox2

[firoz.raj]

Yes Max187Boucher suggestion .i will also recommend .

Dim Shape5 As Shape
Set Shape5 = Controls.Add("vb.shape", "Myshape", Me)
Set Shape5.Container = PBox2
shap5.visible=true

Shape5.BackStyle = 1
Shape5.BackColor = vbRed