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:

Class Application

Last Updated: 04/13/04