Sub Main(ByVal Parm As Object)
    Dim enx As Scheduler.clsDeviceEnumeration
    Dim dv As Scheduler.Classes.DeviceClass
    Dim CC As Scheduler.CAPIControl
    Dim col As Collection
    Dim s As String

    Dim T As String
    Dim D As String
    Dim V As String
    Dim L As String

    enx = hs.GetDeviceEnumerator()
    If enx Is Nothing Then
    Else
        hs.WriteLog("Test", "It is not an object.")
    End If

    Do While enx.Finished = False
        dv = enx.GetNext()
        If Not dv Is Nothing Then
            s = dv.location.Trim.ToUpper
            If (s = "OFFICE") Or (s = "MASTER BEDROOM") Or (s = "ITUNES") Then
	            col = hs.CAPIGetControl(dv.ref)
	            hs.WriteLog("Enumeration", "Got device " & dv.location & " " & dv.Name)
	            For Each CC In col
	                T = CC.ControlType.ToString
	                L = CC.Label
	                If CC.ControlData Is Nothing Then
	                    D = "*"
	                Else
	                    D = CC.ControlData.ToString
	                End If
	                If CC.ControlValue Is Nothing Then
	                    V = "*"
	                Else
	                    V = CC.ControlValue.ToString
	                End If
	                hs.WriteLog("Enumeration", "-------- Label=" & L & ", Type=" & T & ", Data=" & D & ", Val=" & V)
	                
	                If dv.Name.Trim = "Kustom Keypad" And dv.location.Trim = "Office" Then
	                    If CC.Label = "Digital Music 1" Then
							s = hs.CAPIHandleIRCommand(dv.ref, CC.ControlData)
							hs.WriteLog("*****","Result of IR is " & s)	                    
	                    End If
	                End If

	                If dv.Name.Trim = "Status" And dv.location.Trim = "iTunes" Then
	                    If L = "Next" Then
							s = hs.CAPIHandleButton(CC.Label, CC.ControlData)
							hs.WriteLog("*****","Result of Button is " & s)	                    
	                    End If
	                End If

	            Next
	        End If
        End If
    Loop

End Sub