在VBA中，在调用控件前写入shell +注册控件语句。
站在用户的角度思考问题，与客户深入沟通，找到彭山网站设计与彭山网站推广的解决方案，凭借多年的经验，让设计与互联网技术结合，创造个性化、用户体验好的作品，建站类型包括：网站设计、成都做网站、企业官网、英文网站、手机端网站、网站推广、域名注册、雅安服务器托管、企业邮箱。业务覆盖彭山地区。
如果我理解正确的话，有下列方法
方法一：在VBA模块中加入Shell("regsvr32.exe /s " strSystemFolder "Winsock.ocx") 自己改一下变量。本人较早前用过的方法。
方法二：将所有注册组件写进.bat批处理拿做没文件中，并加入开机自动运行，或用shell去运行.bat
方法三：微软官方support
最后一段简单翻译一下：RegComCtl32和UnRegComCtl32是用户自定胡埋义名称；例中消纳组件是默认在windows/system路径下，如果不在该路径下，请自己添加；DllRegisterServer注意字母大小写。
'先建立一个注册表键；此列注册表键名为TestKey。
My.Computer.Registry.CurrentUser.CreateSubKey("TestKey")
'定义注册表键路径，并赋值于注指桐悄册轮盯表键；此列路径为HKEY_CURRENT_USER\TestKey，唯渣赋值为 "Test Value"
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\TestKey", "TestValue", "This is a test value.")
用API函数，下面是哗蠢F4激活程序的事例
Public Class Form1
Public Declare Auto Function RegisterHotKey Lib "辩森user32.dll" Alias "RegisterHotKey" (ByVal hwnd As IntPtr, ByVal id As Integer, ByVal fsModifiers As Integer, ByVal vk As Integer) As Boolean
Public Declare Auto Function UnRegisterHotKey Lib "user32.dll" Alias "UnregisterHotKey" (ByVal hwnd As IntPtr, ByVal id As Integer) As Boolean
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'注册全局热键
RegisterHotKey(Handle, 0, 0, Keys.F4)
'第3个参数意义携芦亩： 0=nothing 1 -alt 2-ctrl 3-ctrl+alt 4-shift 5-alt+shift 6-ctrl+shift 7-ctrl+shift+alt
End Sub
Private Sub Form1_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed
UnRegisterHotKey(Handle, 0)
End Sub
Protected Overrides Sub WndProc(ByRef m As Message)
If m.Msg = 786 Then
Me.Activate()
End If
MyBase.WndProc(m)
End Sub
End Class
不清楚热键和快捷键是什么区别
1.如果你是指Chrl+S这样的快捷键，可以设置ShortCutKeys属性，属性窗口就有可视化编辑器。
2.如果你是指"保存(S)"，其中s有下划线这样的用Alt+字母来访问的设置，应该在菜单项的Text属性中使用符号。符号后面的字母将被作为快速访问字符，显示的时候不会被显示出来，而字母会自动加上下划线。比如"保存(s)"。
3.和选中标记有关的属性有两个
CheckOnClick 在菜单项上单击时是否改变Checked属性
Checked 设置/获取 菜单项是否被选中
4.设置菜单项的Enabled属性为False
