Migration from V6.21 to V6.51

Migration from V6.21 to V6.51

Hi
I'm migrating an application from V6.21 to V6.51
I' m having problem with this part of code during custom wizard executing.
VBA Code:


Set zRMA = zPRJ.Remas.Item("LOOP.Selection")
If zRMA Is Nothing Then
Set zRMA = zPRJ.Remas.Create(tpAnalog, "LOOP.Selection")
End If
zRMA.CreateState
Set zSTATE = zRMA.StateItem(IndexLoop)
With zSTATE
.Status = 16
.CheckArt = 3
.ReaAlarm = IndexLoop
.Function = "LAYOUT." & regLoopName(IndexLoop) & "A"
End With

It return to me error in point: .Function = "LAYOUT." & regLoopName(IndexLoop) & "A"
Run-Time error -2147417848
"Function" method of object "IState" failed
The same code is working on V6.21.
Any idea??
Thanks

This is a migrated post! Originally posted on 16.03.2011 by user fabios. Please be aware that information can be outdated.