CreateRGBColor problem

CreateRGBColor problem

I am having trouble with a small piece of VBA code

I want to set a variable, I think of type Color, to be used in an .Outline.SetProperties line
I get an 'Object Doesn't support this Property of Method error on the   Edgecolor = line


'=========================
Dim Edgecolor As New Color
Dim Red As Integer, Green As Integer, Blue As Integer
tmps = GetSetting("CorelDRAW Surpac Import", "Boundary Box Outer", "Color")
 
  Red = CInt(Left(tmps, 3))
  Green = CInt(Mid(tmps, 4, 3))
  Blue = CInt(Right(tmps, 3))
  Edgecolor = CreateRGBColor(Red, Green, Blue) 'Object Doesn't support this Property of Method
    
  Set sh = ActiveLayer.CreateRectangle(Edgeo, py - Edgeo, px - Edgeo, Edgeo) 'Outer Box
  sh.Rectangle.CornerType = cdrCornerTypeRound
  sh.Rectangle.RelativeCornerScaling = True
  sh.Fill.ApplyNoFill
 
  sh.Outline.SetProperties LineSize, OutlineStyles(0), Edgecolor, ArrowHeads(0), ArrowHeads(0), cdrFalse, cdrFalse, cdrOutlineButtLineCaps, cdrOutlineMiterLineJoin, 0#, 100, MiterLimit:=5#

'=========================

I am developing this in X5 but it will be required for X5 - X7

Any help appreciated
      
***...