Enclosed Controls

To allow controls to be associated code-free, detect a textbox whose midpoint is inside the bounds of another control, and either has or does not have a particular text tag.
These methods allow the enclosed controls to be detected and manipulated at design and/or run time.

Public Sub AutoCopyValsToEnclosedControls(f As Form)

Used to copy the current values of any number of controls to an invisible 'initial value' control that must be enclosed within the outer control.
Values are copied if (a) the midpoint of the 'initial value' control lies inside the outer control display area (b) the 'initial value' control is narrower than the outer control (c) the combo and textbox have the same parent object (so that superimposed textboxes and combos on different tabs, for example, are not regarded as linked) (d) the textbox tag contains the text 'xfCopyVal'

Public Function ColourCodeFade(R As Byte, G As Byte, B As Byte, FadeToR As Byte, FadeToG As Byte, FadeToB As Byte, Percent As Byte) As Long

Fade colour to another target colour, specifying a fade percentage

Public Sub CopyControlValues(ParamArray ControlList() As Variant)

Copy the value from the first to second control for all the paired controls in the passed ParamArray

Public Function DisplayBytes(ColourCode As Long) As String

Display a Long as four bytes

Public Function GetEnclosedTextbox(f As Form, c As Control, TagStr As String) As Control

Get the control enclosed in the outer control The control is considered enclosed if: (a) the midpoint of the 'initial value' control lies inside the outer control display area (b) the 'initial value' control is narrower than the outer control (c) the combo and textbox have the same parent object (so that superimposed textboxes and combos on different tabs, for example, are not regarded as linked) (d) the textbox tag contains the passed string (or doesn't contain it if it starts with '-')

Public Sub SizeComboTextBoxes(FormName As String)

Where comboboxes have textboxes superimposed on the front of them in order to display related items that are not in the dropdown list (eg. where the item has been marked hidden), this sub sizes the textboxes so that they fit neatly inside the combobox display area. The form is opened in design mode, the changes made, and the form saved. Textboxes are resized if (a) the midpoint of the textbox lies inside the combo box display area (b) the combo and textbox have the same parent object (so that superimposed textboxes and combos on different tabs, for example, are not regarded as linked) (c) the textbox tag does not contain the text 'xfNoResize'

Public Function SizeComboTextBoxesAllForms()

Apply SizeComboTextBoxes() to all forms in the database