[求助]如何把颜色对话框中选择的颜色值转换为图层颜色能识别的颜色值

tiyaoli

如题，也就是说如何统一两种类型的颜色？
我是这样做的：先把颜色对话框选择的颜色赋给ComboBox列表框的背景色，然后把该背景色赋给图层的颜色
If lt.Has(Me.TBoxZDHtcm.Text) Then
                        LayerID = lt(Me.TBoxZDHtcm.Text)
                    Else
                        Dim ltr As LayerTableRecord = New LayerTableRecord
                        ltr.Name = Me.TBoxZDHtcm.Text
                        ltr.Color = Autodesk.AutoCAD.Colors.Color.FromColor(Me.CBoxZDHys.BackColor)
                        LayerID = lt.Add(ltr)
                        trans.AddNewlyCreatedDBObject(ltr, True)
                    End If
编译没有错，可是运行时提示无法识别的文本！请求大家帮忙怎么做

tiyaoli

如果直接写出这样：
ltr.Color = Me.ColorDialog1.Color
提示错误：
类型“System.Drawing.Color”的值无法转换为“Autodesk.AutoCAD.Colors.Color”
现在就是想知道如何相互转换这两种颜色