Adding effect of CorelDraw X3 to CorelDraw X6

I use this macro to make an effect in CorelDraw X3. I tried to use it CorelDrawX6 but the bold line is giving me error "Method or data member not found"

Private Sub CommandButton1_Click()
Dim OrigSelection As ShapeRange
Set OrigSelection = ActiveSelectionRange
OrigSelection.SetOutlineProperties 0.01389, OutlineStyles(0)
OrigSelection.ApplyNoFill
Dim eff1 As Effect
Set eff1 = OrigSelection(1).CreateDropShadow(cdrDropShadowFlat, 50, 15, 0#, 0#, CreateCMYKColor(0, 0, 0, 100), cdrFeatherMiddle, cdrEdgeLinear, MergeMode:=cdrMergeMultiply)
Dim s1 As Shape
Set s1 = eff1.DropShadow.ShadowGroup.ConvertToBitmapEx(cdrRGBColorImage, True, True, 72, cdrNormalAntiAliasing, True, False, 95)
OrigSelection.OrderToBack
s1.AddToPowerClip OrigSelection(1), cdrFalse
End Sub