How to scale a shape to a picturebox at run time

:confused::confused:Can anyone help me to sacale a shape to a picturebox at run time. Iam using a user scale and Iwant to be able to scale the shape to the picturebox.

Shapes have no scale, only dimensions. But I don't understand your request scale the shape to the picturebox.

Thanks for the reply, what Iam trying to do is to animate the Height of a shape inside a picturebox by using the picturebox scale. this is the sample code that Iam using, this code goes inside a timer control. I only want the top of the shape to move inside the picturebox acording to the value provided. This is part of a code of a dinamic chart tha Iam trying to create.

Code:

---

Dim C As Integer

Picture3.AutoRedraw = True
Picture3.Scale (0, 195)-(5, 265)

On Error Resume Next
C = CInt(Grid1.TextMatrix(vb, 4))

Shape3.Height = C
vb = vb + 1
Label24 = Grid1.TextMatrix(vb, 4)
Picture3.Refresh
If Grid1.TextMatrix(vb + 1, 4) = "" Then
Timer1.Enabled = False

End If

---