How to raise an event from vb6 Form to a usercontrol? 1

[Diegogo123]

I am trying to RaiseEvent from a button, this button is located in a Form. Then the idea is to raise the final even to the usercontrol.

I have tried the next code:

Form

Public Event TestEvent()
Private Sub Command1_Click()
RaiseEvent TestEvent
End Sub
usercontrol

Event clicked()
Option Explicit
Dim WithEvents f1 As Form1

Private Sub f1_TestEvent()
RaiseEvent clicked
End Sub

Private Sub UserControl_Initialize()
Set f1 = New Form1
End Sub
And unfortunately it is not working as I expect.

I hope my question is clear. Thanks

 

[strongm]

>it is not working as I expect.

Perhaps you can outline how you were expecting it to work

You could start by explaining how the user control is being hosted

 

[Diegogo123]

Hello strongm, thanks a lot for your answer.
I found the issue.
The third-party software cannot run in parallel VB scripts.
Meaning that, if I want it to execute a new VB script(in the third-party software) I must close the Form, and then it will execute the event "clicked".
So, its a limitation in the third-party software and not really an issue in the script.
Once more thanks a lot for your answer.