Option Explicit Dim WithEvents sm As SDM3Server.SDM3 Private Sub Form_Load() Set sm = New SDM3Server.SDM3 End Sub Private Sub sm_OnButtonTapEvent(ByVal buttonID As Integer) lstInsteon.AddItem buttonID End Sub Private Sub sm_OnConnectedAndReady() lstInsteon.AddItem "CNR" End Sub Private Sub sm_OnEvent(ByVal eventID As Integer) lstInsteon.AddItem eventID End Sub Private Sub sm_OnINSTEON(ByVal eventID As Integer, ByVal fromID As String, ByVal toID As String, ByVal flags As Integer, ByVal cmd1 As Integer, ByVal cmd2 As Integer, ByVal extendedData As String) lstInsteon.AddItem "eventID: " & eventID & " - fromID: " & fromID & " - toID: " & toID & " - flags: " & flags & " - cmd1: " & cmd1 & " - cmd2: " & cmd2 & " - extendedData: " & extendedData, 0 End Sub Private Sub sm_OnINSTEONPacket(ByVal fromID As String, ByVal toID As String, ByVal flags As Integer, ByVal cmd1 As Integer, ByVal cmd2 As Integer, ByVal extendedData As String) lstInsteon.AddItem "PACKET - eventID: " & eventID & " - fromID: " & fromID & " - toID: " & toID & " - flags: " & flags & " - cmd1: " & cmd1 & " - cmd2: " & cmd2 & " - extendedData: " & extendedData, 0 End Sub Private Sub sm_OnMyINSTEONMessage(ByVal fromID As String, ByVal flags As Integer, ByVal cmd1 As Integer, ByVal cmd2 As Integer, ByVal extendedData As String) lstInsteon.AddItem "MY - fromID: " & fromID & " - toID: " & toID & " - flags: " & flags & " - cmd1: " & cmd1 & " - cmd2: " & cmd2 & " - extendedData: " & extendedData, 0 End Sub Private Sub sm_OnNAKINSTEON() lstInsteon.AddItem "NAK" End Sub Private Sub sm_OnOtherINSTEONMessage(ByVal fromID As String, ByVal toID As String, ByVal flags As Integer, ByVal cmd1 As Integer, ByVal cmd2 As Integer, ByVal extendedData As String) lstInsteon.AddItem "OTHER - fromID: " & fromID & " - toID: " & toID & " - flags: " & flags & " - cmd1: " & cmd1 & " - cmd2: " & cmd2 & " - extendedData: " & extendedData, 0 End Sub Private Sub sm_OnSALADText(ByVal Text As String) lstInsteon.AddItem "SALADText: " & Text End Sub Private Sub sm_OnText(ByVal Text As String) lstInsteon.AddItem "sm_onText: " & Text End Sub Private Sub sm_OnTickEvent() lstInsteon.AddItem "Tick..." End Sub Private Sub sm_OnUSBArrival(ByVal vendorID As Long, ByVal productID As Long) lstInsteon.AddItem venderID & ":" & productID End Sub Private Sub sm_OnX10Address(ByVal x10text As String) lstInsteon.AddItem "X10 Address: " & x10text, 0 End Sub Private Sub sm_OnX10Command(ByVal x10text As String) lstInsteon.AddItem "X10 Command: " & x10text, 0 End Sub Private Sub sm_OnX10Extended(ByVal x10data As String) lstInsteon.AddItem "X10 Extended: " & x10data, 0 End Sub