home *** CD-ROM | disk | FTP | other *** search
/ PC Open 19 / pcopen19.iso / Imag / IMAGINE / CUSTOM.Z / ALIGN.BAS < prev    next >
Encoding:
BASIC Source File  |  1997-04-22  |  721 b   |  28 lines
  1. Attribute VB_Name = "modAlign"
  2. Option Explicit
  3.  
  4. 'For Always-On-Top switches
  5. Global Const conHwndTopmost = -1
  6. Global Const conHwndNoTopmost = -2
  7. Global Const conSwpNoActivate = &H10
  8. Global Const conSwpShowWindow = &H40
  9. Global Const SWP_NOMOVE = 2
  10. Global Const SWP_NOSIZE = 1
  11. Global Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE Or conSwpNoActivate
  12. Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
  13.  
  14. Public f As frmAlign
  15.  
  16. Type RectType
  17.         iLeft As Long
  18.         iTop As Long
  19.         iRight As Long
  20.         iBottom As Long
  21. End Type
  22.  
  23.  
  24.  
  25. Sub Main()
  26.  
  27. End Sub
  28.