home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD91198192000.psc / Titlebar.bas < prev    next >
Encoding:
BASIC Source File  |  1997-08-18  |  979 b   |  28 lines
  1. Attribute VB_Name = "Module1"
  2. Option Explicit
  3.  
  4. Global ParentHwnd As Long
  5. Global ParentMinimized As Boolean
  6.  
  7. Public Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
  8. Public Declare Function DrawIconEx Lib "user32" (ByVal hdc As Long, ByVal xLeft As Long, ByVal yTop As Long, ByVal hIcon As Long, ByVal cxWidth As Long, ByVal cyWidth As Long, ByVal istepIfAniCur As Long, hbrFlickerFreeDraw As Long, ByVal diFlags As Long) As Long
  9.  
  10. Public Enum ShowCommands
  11.     SW_gHIDE = 0
  12.     SW_gSHOWNORMAL = 1
  13.     SW_gNORMAL = 1
  14.     SW_gSHOWMINIMIZED = 2
  15.     SW_gSHOWMAXIMIZED = 3
  16.     SW_gMAXIMIZE = 3
  17.     SW_gSHOWNOACTIVATE = 4
  18.     SW_gSHOW = 5
  19.     SW_gMINIMIZE = 6
  20.     SW_gSHOWMINNOACTIVE = 7
  21.     SW_gSHOWNA = 8
  22.     SW_gRESTORE = 9
  23.     SW_gSHOWDEFAULT = 10
  24.     SW_gMAX = 10
  25. End Enum
  26.  
  27.  
  28.