Public Function CtlIsLoaded(Control As Control) As Boolean
  Dim nTestVisible As Boolean
  Dim nTestLeft As Single
 
  On Error Resume Next
  If TypeOf Control Is Line Then
    nTestVisible = Control.Visible
    CtlIsLoaded = CBool(Err.Number = 0)
  Else
    nTestLeft = Control.Left
    CtlIsLoaded = CBool(Err.Number = 0)
  End If
End Function