VBA in Acad 2012 64bits

[martijn]

Ik loop tegen het volgende probleem aan.
Op m'n vorige computer windows xp 32 bits had ik een vba programma staan, waarmee ik een laag aanmaakte en de goede kleur en vervolgens een block insert.
Op m'n nieuwe computer windows 7 64 bits krijg ik een foutmelding :

run-time error '429':
Active x component can't craete object

Het programma stopt bij het deel dat ik een kleur voor de laag aanmaak.
zie hieronder het stukje code :


    Dim currLayer As AcadLayer
    Dim newLayer As AcadLayer
    Dim activateLayer As AcadLayer
    Dim AcadLayerColor As AcadAcCmColor
    Dim LayerColor As Long

          Set currLayer = ThisDrawing.ActiveLayer
     
          Set newLayer = ThisDrawing.Layers.Add("K03")
          Set AcadLayerColor = New AcadAcCmColor
          AcadLayerColor.ColorMethod = acColorMethodByRGB
          LayerColor = CLng(117)
          AcadLayerColor.ColorIndex = LayerColor
          Set activateLayer = ThisDrawing.Layers("K03")
          activateLayer.TrueColor = AcadLayerColor
          ThisDrawing.ActiveLayer = activateLayer

Nu kwam ik op internet het onderstaande stukje tegen wat zou moeten helpen tegen dit probleem, ik kom er alleen niet uit.

     Set col = AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor.18")
     

Iemand anders hier ervaring mee?? Of weet iemand hoe dit op te lossen is?

Groetjes Martijn