Imports ActiveHomeScriptLib
Dim WithEvents obj_X10 As ActiveHome
 
Private Sub obj_X10_RecvAction(ByVal bszAction As Object, _
                                   ByVal bszParm1 As Object, _
                                   ByVal TastenBezeichnung As Object, _
                                   ByVal TastenStatus As Object, _
                                   ByVal TastenTimecode As Object, _
                                   ByVal bszParm5 As Object, _
                                   ByVal bszReserved As Object) _
                                   Handles obj_X10.RecvAction
 
        tbTaste.Text = TastenBezeichnung.ToString 'schreibt ie 
        ' tastenbezeichnung in eine Text Box
        tbStatus.Text = TastenStatus.ToString 'schreibt den status der Taste in 
        ' eine Text box (1 beim drücken, dann aufwärtszählend, beim loslassen 
        ' -1)
        tbTimecode.Text = TastenTimecode.ToString 'schreibt den Timecode in 
        ' eine Textbox.
End Sub