建立两个form Private Sub Form_Load() '隐藏窗体 Me.Visible = False '拷贝控件到系统目录 FileCopy App.Path & "/test.dll", "C:/windows/system32/VbTest.dll" '注册Dll '/u——反注册控件 '/s——不管注册成功与否,均不显示提示框 '/c——控制台输出 '/i——跳过控件的选项进行安装(与注册不同) '/n——不注册控件,此选项必须与/i选项一起使用 Shell "regsvr32.exe /s c:/windows/system32/VbTest.dll", vbHide '销毁form1 Unload Me '显示form2 Form2.Show End Sub