home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual BASIC 5.0 (Ent. Edition) / Vb5ent Extractor.EXE / VB / SAMPLES / ENTRPRIS / INTRFACE / INTR_SVR.CLS < prev    next >
Encoding:
Text File  |  1996-11-23  |  527 b   |  22 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "ServerInterface"
  6. Attribute VB_Creatable = True
  7. Attribute VB_Exposed = True
  8. Public Function objGetClassInstance(rstrClassName As String) As Object
  9. 'Return an OLE automation object reference to the requested class
  10. 'Return "Nothing" if error
  11. On Error GoTo gciError
  12.  
  13. Set objGetClassInstance = CreateObject("InterfaceProj." & rstrClassName)
  14. GoTo gciExit
  15.  
  16. gciError:
  17.   objGetClassInstance = Nothing
  18.   Resume gciExit
  19.   
  20. gciExit:
  21. End Function
  22.