Tagging

We use the free-text 'Tag' property in the 'Other' tab in the control properties to assign arbitrary text tags to controls.
Multiple tags can be assigned, separated by ';' eg. the Tag property might look like this: tgParentControls;tgDateRangeComplete We can then enable/disable or take other actions to the group of controls matching a particular tag. This has the advantage that once it is set up, it is code-free to add another member to the group or remove a member from the group.
This kind of 'group control state management' is common in user interfaces.

Private Sub ControlAction(c As Control, Action As xf_ControlActionEnum, FlagValue As Boolean, Optional BGColour As Long = -1, Optional SetFocusTo As Control = Nothing, Optional SuppressErrors As Boolean = False)

Take the action on the passed control.
Action_Lock Lock/unlock the control Action_Enable Enable/disable the control Action_Visible Show/hide the control Action_LockDisable Lock and diable/unlock and enable the control Action_LockOrDisable Lock data controls and disable command buttons Action_LockDisableSetBgColor As Action_LockDisable but also set the BackColor Action_SetBgColor Set BackColor Action_SetBorderColor Set BorderColor Action_SetToDefaultVal Set the value to the control's default value

Public Sub TaggedControlsAction(f As Object, TagStr As String, Action As xf_ControlActionEnum, FlagValue As Boolean, Optional BGColour As Long = -1, Optional SetFocusTo As Control = Nothing, Optional SuppressErrors As Boolean = False)

Take the action on all the controls with a tag matching the one passed. See ControlAction for the actions.

Public Sub TaggedControlsMove(f As Object, TagStr As String, DoMove As Boolean, AnchorControl As Control)

Move all the controls with a tag matching the one passed.
An invisible box is drawn around the controls, and an invisible 'Anchor' control is used to place the top left of the invisible box.
Because of this, the move can be repeated with no adverse effects.
Usually used to move a block of controls down if a second block is visible.

Public Function TagInList(LineStr As String, MatchStr As String, Optional DelimChar As String = ";") As Boolean

Is a specific tag in the tag list ?