Class Name TimeSwitch
'time switch
Sub Class_Globals
Type HourSettings(q1 As Boolean,q2 As Boolean,q3 As Boolean,q4 As Boolean)
Private DaySettings(24) As HourSettings '0 to 23
End Sub
'Initializes the object. You can add parameters to this method if needed.
Public Sub...