VB2008怎么制作DLL

xiguao

我用VB2008作了一个cxb2.DLL，用regsvr32注册时失败，显示“模块cxb2.DLL已加载，但找不到入口点DllregisterServer。请确保cxb2.dll为有效的Dll或OCX文件，然后重试”
cxb2.dll源程序代码不多

Public Class cxb4
    Public Function test(ByVal returnOBJ As Autodesk.AutoCAD.Interop.Common.IAcadEntity) As Autodesk.AutoCAD.Interop.Common.IAcadEntity
        '转到图层
        Dim Aa As Autodesk.AutoCAD.Interop.AcadApplication
        Aa = GetObject(, "AutoCAD.Application")

Dim Ad As Autodesk.AutoCAD.Interop.AcadDocument
        Ad = Aa.ActiveDocument

Ad.SetVariable("clayer", returnOBJ.Layer)
Ad.SetVariable("CELTYPE", returnOBJ.Linetype)
Ad.SetVariable("CECOLOR", CStr(returnOBJ.color))
Ad.SetVariable("CELTSCALE", returnOBJ.LinetypeScale)
Ad.SetVariable("CELWEIGHT", returnOBJ.Lineweight)
test = returnOBJ
End Function
End Class
如何制作一个DLL?