Event fired if a message is sent to COM clients.

Syntax:	OnSendMessageToClients( Message As String, Value As String, Value1 As Long, Value2 As Long )
Parameters:	Message Value Value1 Value2
Example:	' in a class module "EventClass" Dim WithEvents App As Application Private Sub App_OnSendMessageToClients(ByVal Message As String, ByVal Value As String, ByVal Value1 As Long, ByVal Value2 As Long) [...] End Sub ' in a module Public EventManager As New EventClass Sub TestMacro() Set EventManager.App = Application End Sub

See also: