Hi, Can any one help me with this code. What Iam trying to do is set the shape hight property to the value in a msflexgrid cell. I want the Timer to set a new value for each value in a grid so the shape Hight will be moving acording to the value of each cell. here is the code that Iam using to acomplish this.

Code:
Private Sub Timer1_Timer()
Dim x As Integer
Picture3.Scale (0, 195)-(5, 265)
x = 0
On Error Resume Next
Shape3.Height = Grid1.TextMatrix(1 + x, 4)

End Sub