I have written the code in class module of Activex Exe.
Option Explicit
Private mTestForm As TestForm
Private WithEvents mwtmrCoffee As Timer
Event CoffeeReady(ByVal threadID As Long)
Private Sub Class_Initialize()
Set mTestForm = New TestForm
Load mTestForm
Set mwtmrCoffee = mTestForm.tmrCoffee
End Sub
Private Sub Class_Terminate()
Set mwtmrCoffee = Nothing
Unload mTestForm
Set mTestForm = Nothing
End Sub
Private Sub mwtmrCoffee_Timer()
RaiseEvent CoffeeReady(???)
End Sub

Now what should I write in place of ??? so that every instance will get unique identification. and I`ll be able to recognize every instance separately and handle them.