home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / import1a / module1.bas < prev    next >
Encoding:
BASIC Source File  |  1999-10-20  |  613 b   |  19 lines
  1. Attribute VB_Name = "Module1"
  2. Declare Function GetSystemMenu Lib "user32" _
  3. (ByVal hwnd As Long, ByVal bRevert As Long) As Long
  4.  
  5. Declare Function GetMenuItemCount Lib "user32" _
  6. (ByVal hMenu As Long) As Long
  7.  
  8. Declare Function DrawMenuBar Lib "user32" _
  9. (ByVal hwnd As Long) As Long
  10.  
  11. Declare Function RemoveMenu Lib "user32" _
  12. (ByVal hMenu As Long, ByVal nPosition As Long, _
  13. ByVal wFlags As Long) As Long
  14. Public Const MF_BYPOSITION = &H400&
  15. Public Const MF_REMOVE = &H1000&
  16.  
  17.  
  18. Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
  19.