Ontop نگه داشتن فرمها

اين ترفند مربوط به  ONTOP  نگه داشتن فرمها مي شود .  اين كار مي تواند در بسياري از زمينه ها از جمله برنامه هاي مانيتورينگ مناسب باشد .  كدهاي زير را در يك ماژول كپي كنيد و بصورت زير از تابع استفاده كنيد .
,Set Some API Function and constant to Use Ontop Forms
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)
Const HWND_TOPMOST = -1
Const SWP_NOSIZE = &h1
Const SWP_NOMOVE = &h2
Public Sub StayOntop(YourForms As Form)
SetWindowPos YourForm.hwnd, HWND_TOPPOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NO SIZE
End Sub

استفاده بردیم