Russ,
I think everything in this very simple form
is VB6 compatible (or very close). I'll try
simply pouring the text into this reply so
you can copy/paste it into your VS6 tool. My
email address is quadrabyte@gmail.com if you
want to contact me directly for the code.
You'll need to add a reference to the
ActiveHomeScriptLib.dll to get things to link.
Here's the content of the form:
Public Class Form1
Private WithEvents _oActiveHomeController
As New ActiveHomeScriptLib.ActiveHome
Private Sub Button1_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs)
Handles Button1.Click
Try
If _oActiveHomeController Is
Nothing Then
_oActiveHomeController = New
ActiveHomeScriptLib.ActiveHome
End If
send(TextBox1.Text,
TextBox2.Text, TextBox3.Text, TextBox4.Text)
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub
_oActiveHomeController_RecvAction(ByVal
bszAction As Object, ByVal bszParm1 As
Object, ByVal bszParm2 As Object, ByVal
bszParm3 As Object, ByVal bszParm4 As Object,
ByVal bszParm5 As Object, ByVal bszReserved
As Object) Handles
_oActiveHomeController.RecvAction
receive(bszAction, bszParm1,
bszParm2, bszParm3)
End Sub
Private Sub send(ByVal bszAction As
Object, ByVal bszParm1 As Object, ByVal
bszParm2 As Object, ByVal bszParm3 As Object)
_oActiveHomeController.SendAction(bszAction,
bszParm1)
ListBox1.Items.Add("<< " &
bszAction.ToString & " " & bszParm1.ToString
& " " & bszParm2.ToString & " " &
bszParm3.ToString)
End Sub
Private Sub receive(ByVal bszAction As
Object, ByVal bszParm1 As Object, ByVal
bszParm2 As Object, ByVal bszParm3 As Object)
ListBox1.Items.Add(">> " &
bszAction.ToString & " " & bszParm1.ToString
& " " & bszParm2.ToString & " " &
bszParm3.ToString)
End Sub
End Class
