home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 Special / chip-cd_2001_spec_05.zip / spec_05 / apps / crystal / disk18 / Xvb233._ / Xvb233.
Text File  |  1999-08-23  |  281b  |  10 lines
  1. Attribute VB_Name = "modClassIDGenerator"
  2. Attribute VB_Ext_KEY = "RVB_UniqueId" ,""
  3. Function GetNextClassDebugID() As Long
  4.     'class ID generator
  5.     Static lClassDebugID As Long
  6.     lClassDebugID = lClassDebugID + 1
  7.     GetNextClassDebugID = lClassDebugID
  8. End Function
  9.  
  10.