Lỗi khi sử dụng hàm SetRGB (2 người xem)

[luongtuananh83]

Xin chào các thành viên GPE
Hiện tại tôi đang viết một chương trình trên VB6 có giao tiếp với phần mềm AutoCad (thông qua thư viện AutoCad xxx Type Library)

Khi muốn tô mầu cho 1 đối tượng sử dụng hàm SetRGB ví dụ
'---------------------------------
Dim col As New AcadAcCmColor
Dim cir As AcadCircle
Dim pt(0 To 2) As Double

Call col.SetRGB(125, 175, 235)
Set cir = AcadDoc.ModelSpace.AddCircle(pt, 2)
cir.TrueColor = col
ZoomAll

Trong đó biến AcadDoc đã được khai báo ở thủ tục khác như sau:
Public AcadApp As AcadApplication
Public AcadDoc As AcadDocument
...
Set AcadApp = CreateObject("AutoCAD.Application")
Set AcadDoc = AcadApp.ActiveDocument
....
'---------------------------------
thì chương trình thông báo lỗi tại dòng in đậm và gạch chân ở trên như sau:



Xin nhờ các bạn giúp sửa lỗi này.

Trân trọng