Annotation View Support Reference Catia VBA

[Jegsaran]

Hi All,
I am trying to create an annotation view in my product. But as soon as I have created it I am getting the view as Isolated and it is not showing the reference. Please check the smap attached. It would be much of a help if anyone could answer it.
My code as follows,

Set AnnotationSets = oTopAssy.GetTechnologicalObject("CATAnnotationSets")
Set AnnotationSet = AnnotationSets.Item(AnnotationSets.Count)
Set annotationSet1 = AnnotationSets.Item(AnnSet)
Set theViewFactory = annotationSet1.TPSViewFactory
Set RefTempltPrtHybShapeFrntPlane = oTempltPrt.CreateReferenceFromObject(oTempltPrtHybShapeFrntPlane)
Set FrntView = theViewFactory.CreateView(RefTempltPrtHybShapeFrntPlane, 3)
FrntView.Name = "Front Section Cut View"