Public obj As ComInterOpLibrary.ComInterOpClass
Public WithEvents objEvent As ComInterOpLibrary.ComInterOpClass
Private Sub Form_Load()
Set obj = New ComInterOpLibrary.ComInterOpClass
Set objEvent = obj
End Sub
Public obj As ComInterOpLibrary.ComInterOpClass
Public WithEvents objEvent As ComInterOpLibrary.ComInterOpClass
Private Sub Form_Load()
Set obj = New ComInterOpLibrary.ComInterOpClass
Set objEvent = obj
End Sub