Event fired if a message is posted to COM clients.

Syntax:	OnPostMessageToClients( 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_OnPostMessageToClients(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: