vb 对AutoCAD的二次开发，怎样添加图层，设置线型 线宽？

请高手指点，遇到一个问题就是vb对CAD的二次开发里面，在vb代码编辑里怎样添加图层并设置线型 线宽？
  谢谢。

这个在CAD vba帮助里面明明白白的例子
给你一个add layer的例子
Public Function AutoCADCreateLayer(ByVal LayerName As String, _
  Optional ByVal LayerColour As Long = -1, _
  Optional ByVal LayerOn As Boolean = True, _
  Optional ByVal LayerLocked As Boolean = False) As Boolean

  Dim objLayer As AutoCAD.AcadLayer
   
  On Error GoTo ErrorHandler
   
  ' Can't perform function if there is no drawing object
  If g_objDrawing Is Nothing Then Exit Function
   
  Set objLayer = g_objDrawing.Layers.Add(LayerName)
   
  If Not objLayer Is Nothing Then
  If LayerColour <> -1 Then
  objLayer.Color = LayerColour
  End If
  objLayer.LayerOn = LayerOn
  objLayer.Lock = LayerLocked
  End If
   
  AutoCADCreateLayer = True

ExitHandler:
  On Error Resume Next
  Set objLayer = Nothing
  Exit Function

ErrorHandler:
  Resume ExitHandler

End Function