将属性变量定义为ole_color
Public Property Get LineColor() As OLE_COLOR
    
End PropertyPublic Property Let LineColor(ByVal New_LineColor As OLE_COLOR)
    
    
End Property