Example: Moving a label from a version to its predecessor

' 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

Feedback