[求助]：层的颜色读取问题

winabcd

我要把一个给定层的颜色设置成一个标签的背景色，我用下述方法时总提示我出错，我却找不到原因。请知道者帮助。
Dim objLayer As AcadLayer

       For Each objLayer In ThisDrawing.Layers
         If objLayer.Name = LayerName Then
            Exit For
         End If
      Next
      lblColor.BackColor = RGB(objLayer.TrueColor.Red, objLayer.TrueColor.Green, objLayer.TrueColor.Blue)

其中：LayerName为一已知的层名
      lblColor为一标签名

雪山飞狐(lzh)

Dim col As AcadAcCmColor
Set col = ThisDrawing.Layers("01").TrueColor
Label1.BackColor = RGB(col.Red, col.Green, col.Blue)

winabcd

问题解决，谢谢lzh741206的帮助。