' Connect to the top-level Rational ClearCase object Dim CC As New ClearCase.Application ' Move a label from a version to its predecessor version Dim Ver As CCVersion Dim PredVer As CCVersion Dim Label As CCLabel Dim LabelType As CCLabelType ' Get the label from one version and then get its type ' (Note: you could also get the label type from the version's VOB) Set Ver = CC.Version("testelem.c@@\main\v4.0.bl5_main\5") Set Label = Ver.Label("TempLabelType") Set LabelType = Label.Type ' Get the predecessor version and apply the label to it, passing True for ' Replace to specify your intention to move the label Set PredVer = Ver.Predecessor LabelType.Apply PredVer, "Reverting to predecessor version", True