Lots of Functions to Deal with Controls

Finding the widest, right-aligning, changing their size to fit the contents of their caption or text, making comboboxes as wide as their widest list entry, etc.

Attachment 191029

This has some dependencies. Other than the CallStack and ErrorHandler stuff, if you find something in there that has a dependency that's not included then let me know and I'll upload it.

This is the only one I saw immediately but there may be others.

Code:

---

Public Function MaxValue(ParamArray Values() As Variant) As Variant
Dim m_CallStacker As New cCallStacker
Dim n As Long
Dim nMax As Long

' Returns the Greatest Value.

m_CallStacker.Add NAME & ".MaxValue(Public Function)"

For n = LBound(Values) To UBound(Values)

  If Values(n) > nMax Then nMax = Values(n)

Next n

MaxValue = nMax

End Function

---