Attribute VB_Name = "modWinAPIs" Option Explicit ' IDLE Public Declare Function GetTickCount Lib "kernel32" () As Long Public Declare Function GetLastInputInfo Lib "user32" (plii As Any) As Long Global gblIdleTimeLock As Double Public Type LASTINPUTINFO cbSize As Long dwTime As Long End Type Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Public Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Public Declare Sub ReleaseCapture Lib "user32" () Public Const WM_NCLBUTTONDOWN = &HA1 Public Const HTCAPTION = 2 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 Declare Function LockWindowUpdate Lib "user32" (ByVal hWnd As Long) As Long