home *** CD-ROM | disk | FTP | other *** search
/ Tricks of the Windows Gam…ming Gurus (2nd Edition) / Disc2.iso / msdn_vcb / samples / vc98 / addins / vb4addin / commands.cls < prev    next >
Encoding:
Text File  |  1998-04-02  |  492 b   |  21 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "Commands"
  6. Attribute VB_Creatable = False
  7. Attribute VB_Exposed = True
  8. Public m_app As Application
  9.  
  10. Public Sub Vb4AddInCommand()
  11.     m_app.EnableModeless False
  12.     MsgBox "Vb4AddInCommand called!"
  13.     m_app.EnableModeless True
  14.  
  15.     ' TODO: In this and all other commands you may manipulate the Developer
  16.     '  Studio objects, by starting with the Application object, stored
  17.     '  in m_app.
  18.  
  19. End Sub
  20.  
  21.