Code:'////// FULLY CODDED AND COMMENTED BY m_t_h////// '///// IF YOU'RE USING THIS SOURCE CODE PLEASE INCLUDE ME IN CREDITS//// '//// DO NOT DELETE THIS COMMENT //// '/// VISIT WWW.MPGH.NET, THE BIGGEST HACKING SITE ON THE WORLD////// '// '/ ~m_t_h Module Module1 Declare Function SetWindowPos Lib "user32" (ByVal hwnd As IntPtr, ByVal hWndInsertAfter As Integer, ByVal x As Integer, ByVal y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer) As IntPtr Public Const SWP_FRAMECHANGED = &H20 Public Const HWND_TOP = 0 Public Const HWND_TOPMOST = -1 Public Const HWND_NOTOPMOST = -2 Public Const SWP_DRAWFRAME = SWP_FRAMECHANGED Public Const SWP_HIDEWINDOW = &H80 Public Const SWP_NOACTIVATE = &H10 Public Const SWP_NOCOPYBITS = &H100 Public Const SWP_NOMOVE = &H2 Public Const SWP_NOOWNERZORDER = &H200 Public Const SWP_NOREDRAW = &H8 Public Const SWP_NOREPOSITION = SWP_NOOWNERZORDER Public Const SWP_NOSIZE = &H1 Public Const SWP_NOZORDER = &H4 Public Const SWP_SHOWWINDOW = &H40 Public Sub FormOnTop(ByVal frm As Form, ByVal VF As Boolean) Select Case VF Case True SetWindowPos(frm.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOSIZE Or SWP_NOMOVE) Case False SetWindowPos(frm.Handle, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOSIZE Or SWP_NOMOVE) End Select End Sub End Module