home *** CD-ROM | disk | FTP | other *** search
/ Dan Appleman's Visual Bas…s Guide to the Win32 API / Dan.Applmans.Visual.Basic.5.0.Programmers.Guide.To.The.Win32.API.1997.Ziff-Davis.Press.CD / VB5PG32.mdf / desaware / apitools / apiclass.cls < prev    next >
Encoding:
Text File  |  1996-02-07  |  679 b   |  35 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "ListAPIClass"
  6. Attribute VB_Creatable = True
  7. Attribute VB_Exposed = True
  8. ' Copyright ⌐ 1996 by Desaware Inc.
  9. ' Part of the Desaware API Toolkit
  10. ' All Rights Reserved
  11. Option Explicit
  12. Public gobjVBInst As Object
  13.  
  14.  
  15. Sub ListAPIMakeAddin(ByVal VBinst As Object)
  16.     On Error GoTo handler:
  17. '   this sets the VB instance handle
  18.     Set gobjVBInst = VBinst
  19.     Set objVBInst = VBinst
  20.     frmAPI.Show
  21.     frmAPI.WindowState = 0
  22.     IsAddin% = True
  23.     frmAPI.cmdCopy(1).Visible = True
  24.     frmAPI.mnuEditInsert.Visible = True
  25.     Exit Sub
  26. handler:
  27. MsgBox Error$
  28. Exit Sub
  29. End Sub
  30.  
  31.  
  32.  
  33.  
  34.  
  35.