home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 May / W2KPRK.iso / apps / crystal / disk18 / Xvb230._ / Xvb230.
Text File  |  1999-08-23  |  673b  |  34 lines
  1. Attribute VB_Name = "Module1"
  2. '
  3. Option Base 0
  4.  
  5. Option Explicit
  6.  
  7. Public Const TYPE_METHOD = 1
  8. Public Const TYPE_EVENT = 2
  9. Public Const TYPE_PROPERTY = 3
  10. Public Type DirtyFlag
  11.     rtf As Boolean
  12.     TreeView As Boolean
  13. End Type
  14.  
  15. '##ModelId=338F9EC20276
  16. Public Const LISTVIEW_BUTTON As Variant = 11
  17.  
  18.  
  19. '##ModelId=338F9EC202E4
  20. Public fMainForm As frmMain
  21.  
  22. Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
  23.  
  24.  
  25. '##ModelId=338F9EC20352
  26. Public Sub Main()
  27.     Set fMainForm = New frmMain
  28.     Load fMainForm
  29.     fMainForm.Show
  30. End Sub
  31.  
  32.  
  33.  
  34.