home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Programmer'…arterly (Limited Edition) / Visual_Basic_Programmers_Journal_VB-CD_Quarterly_Limited_Edition_1995.iso / code / ch18code / declares.bas < prev    next >
Encoding:
BASIC Source File  |  1995-08-14  |  855 b   |  30 lines
  1. Attribute VB_Name = "Declarations"
  2. Option Explicit
  3.  
  4. ' Declarations and constants for AlwaysOnTop property.
  5. #If Win16 Then
  6. Public Declare Sub SetWindowPos Lib "User" _
  7.     (ByVal hWnd As Integer, _
  8.     ByVal hWndInsertAfter As Integer, _
  9.     ByVal X As Integer, _
  10.     ByVal Y As Integer, _
  11.     ByVal cx As Integer, _
  12.     ByVal cy As Integer, _
  13.     ByVal wFlags As Integer)
  14. #Else
  15. Public Declare Sub SetWindowPos Lib "User32" _
  16.     (ByVal hWnd As Long, _
  17.     ByVal hWndInsertAfter As Long, _
  18.     ByVal X As Integer, _
  19.     ByVal Y As Integer, _
  20.     ByVal cx As Integer, _
  21.     ByVal cy As Integer, _
  22.     ByVal wFlags As Integer)
  23. #End If
  24. Public Const SWP_NOACTIVATE = &H10
  25. Public Const SWP_SHOWWINDOW = &H40
  26. Public Const SWP_NOSIZE = &H1
  27. Public Const SWP_NOMOVE = &H2
  28. Public Const HWND_TOPMOST = -1
  29. Public Const HWND_NOTOPMOST = -2
  30.