module1.bas

来自「150个经典VB API应用实例.全部是运用API写的小程序」· BAS 代码 · 共 15 行

Attribute VB_Name = "Module1"
Public 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

Public Const SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1
Public Const HWND_TOPMOST = -1