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