home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / runner1a / strtmenu.bas < prev   
Encoding:
BASIC Source File  |  1999-09-14  |  723 b   |  19 lines
  1. Attribute VB_Name = "StrtMenu"
  2. Public Declare Function SendMessageStr Lib "user32" Alias "SendMessageA" _
  3.         (ByVal hwnd As Long, _
  4.         ByVal wMsg As Long, _
  5.         ByVal wParam As Long, _
  6.         ByVal lParam As String) As Long
  7.         Public Const LB_DIR = &H18D
  8.         Public Const DDL_READWRITE = &H0
  9.         Public Const DDL_READONLY = &H1
  10.         Public Const DDL_HIDDEN = &H2
  11.         Public Const DDL_SYSTEM = &H4
  12.         Public Const DDL_DIRECTORY = &H10
  13.         Public Const DDL_ARCHIVE = &H20
  14.         Public Const DDL_DRIVES = &H4000
  15.         Public Const DDL_EXCLUSIVE = &H8000
  16.         Public Const DDL_POSTMSGS = &H2000
  17.         Public Const DDL_FLAGS = DDL_ARCHIVE Or DDL_DIRECTORY
  18.  
  19.