private Sub RaisedEvent
Log("Class.RaiseEvent")
If SubExists(vModule,vEventName&"_evento") Then
Log("Class.RaiseEvent SUB does exists")
vData.T = 5
CallSubDelayed2(vModule,vEventName&"_evento",vData)
Else
Log("Class.RaiseEvent SUB does not exists")
End If
End Sub
Sub MM
Log("Class.Method.MM")
RaisedEvent
End Sub