home *** CD-ROM | disk | FTP | other *** search
/ ActiveX Programming Unleashed CD / AXU.iso / activex / demos / oletrial / samples / vb / mhsubc / mhsub.bas < prev    next >
Encoding:
BASIC Source File  |  1995-11-30  |  1.2 KB  |  32 lines
  1. Attribute VB_Name = "Module1"
  2. Option Explicit
  3.  
  4. Global Const WM_MOVE = &H3
  5. Global Const WM_LBUTTONUP = &H202
  6. Global Const WM_LBUTTONDOWN = &H201
  7. Global Const WM_RBUTTONDOWN = &H204
  8. Global Const WM_RBUTTONUP = &H205
  9. Global Const WM_LBUTTONDBLCLK = &H203
  10. Global Const WM_RBUTTONDBLCLK = &H206
  11. Global Const WM_MOUSEACTIVATE = &H21
  12. Global Const WM_MOUSEMOVE = &H200
  13. Global Const WM_SETCURSOR = &H20
  14. Global Const WM_MENUSELECT = &H11F
  15. Global Const WM_SYSCOMMAND = &H112
  16. Global Const MF_SEPARATOR = &H800&
  17. Global Const MF_STRING = &H0&
  18. Global Const lg_ABOUT = 1
  19.  
  20. Global lg_SysMenuHandle As Long
  21. Global lg_AddMenu As Long
  22.  
  23. #If Win16 Then
  24.     Declare Function GetSystemMenu Lib "user" (ByVal hwnd As Integer, ByVal bRevert As Integer) As Integer
  25.     Declare Function AppendMenu Lib "user" (ByVal hMenu As Integer, ByVal wFlags As Integer, ByVal wIDNewItem As Integer, ByVal lpNewItem As String) As Integer
  26.     
  27. #Else
  28.     Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
  29.     Declare Function AppendMenu Lib "user32" Alias "AppendMenuA" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As String) As Long
  30. #End If
  31.  
  32.