Can't figure this out. What am I doing wrong? Everything functions, just has (value) displayed. OCD won't let it be...
PHP Code:
Case "Phone"
Dim SPair As VSPair
Dim GPair As VGPair
SPair = New VSPair(ePairStatusControl.Both)
SPair.PairType = VSVGPairType.Range
SPair.RangeStart = 0
SPair.RangeEnd = 9999999
SPair.RangeStatusPrefix = ""
SPair.RangeStatusSuffix = ""
SPair.IncludeValues = False
SPair.Render = Enums.CAPIControlType.TextBox_Number
hs.DeviceVSP_AddPair(dv.Ref(hs), SPair)
GPair = New VGPair
GPair.PairType = VSVGPairType.SingleValue
GPair.Set_Value = 0
GPair.Graphic = "/images/HomeSeer/contemporary/unlocked.gif"
hs.DeviceVGP_AddPair(dv.Ref(hs), GPair)
GPair = New VGPair
GPair.PairType = VSVGPairType.SingleValue
GPair.Set_Value = 100
GPair.Graphic = "/images/HomeSeer/contemporary/locked.gif"
hs.DeviceVGP_AddPair(dv.Ref(hs), GPair)
Comment