' Connect to the top-level Rational ClearCase object and get a VOB Dim CC As New ClearCase.Application Dim VOB as CCVOB Set VOB = CC.VOB("\caroltest") ' Get an existing branch type in the VOB Dim BranchType as CCBranchType Set BranchType = VOB.BranchType("v3.2_main") ' Apply the branch type to a version Dim Ver as CCVersion Set Ver = CC.Version("\caroltest\testelem.c") BranchType.Apply Ver