Class CObjTypes
  Public cn As New Connection
  Public dbInitilized As Boolean
  Public Enum vbObjType
  Public UnknownFlags As New CollectionEx
  Public Function hasUnNamedFlags(Optional cco As CCodeObject, Optional ByVal v As Long = -1) As Long
  Public Function getUnNamedFlags(Optional cco As CCodeObject, Optional ByVal v As Long = -1) As String
  Public Function isForm(Optional cco As CCodeObject, Optional ByVal v As Long = -1) As Boolean
  Public Function hasOptInfo(Optional cco As CCodeObject, Optional ByVal v As Long = -1) As Boolean
  Public Function hasPubEvents(Optional cco As CCodeObject, Optional ByVal v As Long = -1) As Boolean
  Public Function hasPubiFace(Optional cco As CCodeObject, Optional ByVal v As Long = -1) As Boolean
  Public Function isUserControl(Optional cco As CCodeObject, Optional ByVal v As Long = -1) As Boolean
  Public Function isClass(Optional cco As CCodeObject, Optional ByVal v As Long = -1) As Boolean
  Public Function isType(v, ot As vbObjType) As Boolean
  Public Function typeAsStr(ByVal ot As vbObjType) As String
  Public Function valAsType(v) As vbObjType
  Public Function valAsStr(v) As String
  Public Function FindInterfaceInDB(iid, ByRef outVar As CDbTypeLibLookup) As Boolean
End Class
