在VBA窗体设计中，可将一些开发中使用的控件全部选择后，直接拖至工具箱中，工具箱会添加一个"控件组"，在窗体设计中可直接将该控件组放置于窗体，大大提高了效率(该特点为VBA所独有)。 

　　    如开发者需使用VBA标准控件箱未提供的其他控件，可右键单击工具箱，在出现的菜单中选择"附加控件"命令，在出现的对话框中进行选择即可。
    在VBA窗体工具箱中附加控件中没有出现的控件，我们可以在vb的窗体中加入，然后在vba中导入该窗体，但是vbe不支持的控件就不能导入了。
 

(1)在“工具箱”中的空白区域单击右键，从弹出的菜单中选择“附加控件”菜单项。
(2)在“附加控件”对话框中，引用“AcFocusCtrl”控件，单击“确定”按钮关闭该对话框。
(3)将添加的“AcFocusCtrl”控件放置在要作为非模态使用的窗体中，并在窗体的初始化事件中添加：Me.AcFocusCtrl1.KeepFocus = True
(4)在ThisDrawing模块中添加下面的语句：
Sub Test()
UserForm1.Show vbModeless
End Sub
(5)运行Test宏，窗体自由切换的效果。

由
[HKEY_CLASSES_ROOT\.scr]
@="AutoCADScriptFile"

改为

[HKEY_CLASSES_ROOT\.scr]
@="scrfile
"

3 分类、代号
1.    H型钢分为三类，其代号如下：
宽翼缘H 型钢 HW（W为Wide英文字头）
中翼缘H 型钢 HM（M为Middle英文字头）
窄翼缘H 型钢 HN（N为Narrow英文字头）
2.    H型钢桩代号为：HP（P为Pile英文字头）
3.    剖分T型钢分为三类，其代号如下：
宽翼缘剖分T 型钢 TW（W为Wide英文字头）
中翼缘剖分T 型钢 TM（M为Middle英文字头）
窄翼缘剖分T 型钢 TN（N为Narrow英文字头）

Sub Add_HyperLinks()

    Dim Hyperlinks As AcadHyperlinks
    Dim Hyperlink As AcadHyperlink
    
    Dim Obj As AcadEntity

    For Each Obj In ThisDrawing.ModelSpace
        Set Hyperlinks = Obj.Hyperlinks
        Set Hyperlink = Hyperlinks.Add("田草博客")
            Hyperlink.URL = "http://www.tiancao.net"
            Hyperlink.URLDescription = "Ctrl+单击编辑对象"
            Hyperlink.URLNamedLocation = "田草博客"
    Next

End Sub