Dim Object
' Definition des Objekts
' Definition of object
Set Object = HmiRuntime.Screens("Screen_1").ScreenItems("Rectangle_1")
Object.Height = Height
Object.Width = Width
Dim Objekt
' Definition des Objekts
' Definition of object
Set Objekt = HmiRuntime.Screens("Screen_1").ScreenItems("Rectangle_1")
Height = Objekt.Height
Width = Objekt.Width