7,763
社区成员
发帖
与我相关
我的任务
分享
On Error Resume Next
Dim A As Object
Set A = CreateObject("classA")
If Err <> 0 Then
MsgBox "组件没被正确注册。"
End If
On Error Resume Next
Dim A As Object
Set A = New Class1
If Err <> 0 Then
MsgBox "组件没被正确注册。"
End If