Public Function IsLoaded(Search As String, Optional Scan As Object) As Boolean
Dim i As Object
Dim First As Boolean
If Scan Is Nothing Then First = True: Set Scan = Application.Forms
For Each i In Scan
If Not First Then
If i.ControlType = 112 Then...