WinCC grafik editörde nesne istediğm noktada durmuyor

rectangle X=600 noktasında durmuyor. deneme tagi 1 olduğunda 10 ar 10 ar öteleniyor fakat
600 de durmuyor. kodun neresi yanlış olabilir?
teşekkürler

Function Left_Trigger(ByVal Item)
Dim objTag, Value1, objRectangle, objRectangleItem
Set objTag = HMIRuntime.Tags("deneme")
Set objRectangle = ScreenItems("Rectangle1")

Do While objTag.Read() = 1
Do
objRectangle.Left = objRectangle.Left + 10
Loop Until objRectangleItem.Left() = 600
Loop

End Function

kodu buldum. çalışıyor.

selamlar...

Set objTag = HMIRuntime.Tags("deneme")
If (objTag.Read = 1) And (Item.Left < 600) Then
Item.Left = Item.Left + 10
End If