Contextual Guidance at the moment of need helps your employees adopt to new software or processes instantly. Boost knowledge retention and employee engagement step-by-step with one easy solution.
Private Const SWP_NOMOVE = 2 Private Const SWP_NOSIZE = 1 Private Const Flags = SWP_NOMOVE Or SWP_NOSIZE Private Const HWND_TOPMOST = -1 Private Const HWND_NOTOPMOST = -2 Private 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 Sub SetWindowOnTop(ByVal p_hWnd As Long, Optional ByVal p_bOnTop As Boolean = True) If p_bOnTop Then Call SetWindowPos(p_hWnd, HWND_TOPMOST, 0, 0, 0, 0, Flags) Else Call SetWindowPos(p_hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, Flags) End If End Sub Calling it like this: Call SetWindowOnTop(Me.hWnd, True)
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|MS Access Product Inventory Movement Transfer Form With Separate Records Combined Into one Form||55||101|
|convert a string containing currency data into a currency or decimal in vb6, no matter the country currency||4||73|
|How to hault or freeze parent form when a 2d form is open in vb6||3||46|
|Access 2003, find all instances of database ODBC||3||48|
Join the community of 500,000 technology professionals and ask your questions.