Originally posted by bpwwer
View Post
I'll send you a PM.
If this is your first visit, be sure to check out the FAQ. You must register before you can post.
IMPORTANT: Your first post will be checked for appropriate content. This may take a bit of time.
Dim objCAPIControl As CAPIControl Dim dvRef as Integer dvRef = hs.GetDeviceRefByName("Zone 1") objCAPIControl = hs.CAPIGetSingleControlByUse(dvRef,ePairControlUse._On) If objCAPIControl IsNot Nothing Then objCAPIControl.ControlValue = 10 * 60 hs.CAPIControlHandler(objCAPIControl) End If
Comment