home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / ProjectX1_562922192002.psc / ModulesCode / modCodeX4.bas < prev    next >
Encoding:
BASIC Source File  |  1997-02-05  |  350 b   |  17 lines
  1. Attribute VB_Name = "modCodeX4"
  2. Declare Sub SHAddToRecentDocs Lib "shell32.dll" (ByVal uFlags As Long, ByVal pv As String)
  3. Public Sub TvAddRecent(File As String)
  4.     Call SHAddToRecentDocs(2, File)
  5. End Sub
  6.  
  7.  
  8. Function IsIDE() As Boolean
  9. On Error GoTo 10
  10. Debug.Print , 1, 1, X1
  11. IsIDE = True
  12. Exit Function
  13. 10
  14. IsIDE = False
  15.  
  16. End Function
  17.