i have problems with restraints

  Set CWResZ = swsLBCMgr.AddRestraint(5, selfixturesZ, selFront, errCode)

    If errCode <> 0 Then ErrorMsg swApp, "No fixed restraint created.", True

    CWResZ.RestraintBeginEdit

    CWResZ.SetTranslationComponentsValues(0, 0, 1, 0, 0, 0)  THIS LINE IS WRONG BUT I DONT KNOW WHY ("=" EXPECTED OR WRONG SYNTAX)

    CWResZ.RestraintEndEdit

PLEASE HELP