Sub Main()
Dim Brkr1S As New Point
Dim Brkr2S As New Point
Dim Brkr3S As New Point
Dim Brkr4S As New Point
Dim Brkr5S As New Point
Dim Brkr6S As New Point
Brkr1S.id = "BRKR1_S"
Brkr2S.id = "BRKR2_S"
Brkr3S.id = "BRKR3_S"
Brkr4S.id = "BRKR4_S"
Brkr5S.id = "BRKR5_S"
Brkr6S.id = "BRKR6_S"
Brkr1S.get
Brkr2S.get
Brkr3S.get
Brkr4S.get
Brkr5S.get
Brkr6S.get
Dim brk1 As Boolean
Dim brk2 As Boolean
Dim brk3 As Boolean
Dim brk4 As Boolean
Dim brk5 As Boolean
Dim brk6 As Boolean
brk1 = false brk2 = false brk3 = false brk4 = false brk5 = false brk6 = false
If (Brkr1S.value = 3) Then
PMCS Interface Toolkit | Creating Floor Plans, Elevation Views, and |