[AccessD] frmMain Form (Talking between applications)

Option Explicit
Dim WithEvents ISFEMon As ISFEMonitoring
Private Sub cmdHandshake_Click()
imMessaging.Handshake
End Sub
Private Sub cmdPulse_Click()
Dim im As ISFEMessage
Set im = New ISFEMessage
im.MessageType = "Pulse"
im.SecondParameter = 1000
im.AddData "CurrentTime", "Time: " & Format(Time, "dd/mm/yyyy hh:mm:ss")
im.SendData
Set im = Nothing
End Sub
Private Sub Form_Load()
Me.Caption = Me.hwnd
Set imMessaging = New ISFEMessaging
Set ISFEMon = New ISFEMonitoring
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set ISFEMon = Nothing
Set imMessaging = Nothing
End Sub
Private Sub ISFEMon_MonitoringEvent(strTextToDisplay As String)
Me.lstData.AddItem strTextToDisplay, 0
End Sub
The information contained in this transmission is intended only for the person or entity to which it is addressed and may contain II-VI Proprietary and/or II-VI BusinessSensitve material. If you are not the intended recipient, please contact the sender immediately and destroy the material in its entirety, whether electronic or hard copy. You are notified that any review, retransmission, copying, disclosure, dissemination, or other use of, or taking of any action in reliance upon this information by persons or entities other than the intended recipient is prohibited.