Bus6.Get
Bus7.Get
Dim Change3 As Boolean
Dim Change4 As Boolean
Dim Change5 As Boolean
Dim Change6 As Boolean
Dim Change7 As Boolean
If ((Bus1.value) And (brk1)) Then Bus3.value = 1
Change3 = 1
ElseIf (Not Change3) Then Bus3.value = 0
End If
If ((Bus2.value) And (brk2)) Then Bus5.value = 1
Change5 = 1
ElseIf (Not Change5) Then Bus5.value = 0
End If
If ((Bus3.value) And (brk3)) Then Bus4.value = 1
Change4 = 1
ElseIf (Not Change4) Then Bus4.value = 0
End If
If ((Bus4.value) And (brk4)) Then Bus5.value = 1
Change5 = 1
ElseIf (Not Change5) Then Bus5.value = 0
End If
If ((Bus3.value) And (brk5)) Then Bus6.value = 1
PMCS Interface Toolkit | Creating Floor Plans, Elevation Views, and |
