поверх всех окон

[EvilCoder]

<DELETE>

[gaidar]

Код: Выделить всё


      ' Функция
      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_NOSIZE = &H1
      Public Const SWP_NOMOVE = &H2
      Public Const HWND_TOPMOST = -1
      Public Const HWND_NOTOPMOST = -2

' Вызов:

Call SetWindowPos(Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE)



HWND_NOTOPMOST используй, если надо отменить установку поверх всех.

[EvilCoder]

<DELETE>