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
 
  Private Const HWND_TOPMOST = -1
  Private Const HWND_NOTOPMOST = -2
  Private Const SWP_NOMOVE = 2
  Private Const SWP_NOSIZE = 1
  Private Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
 
  Public Function TopMost(ByVal HWND As Long, Optional bTopMost As Boolean = _
    True) As Boolean
    TopMost = SetWindowPos(HWND, IIF(bTopMost, HWND_TOPMOST, HWND_NOTOPMOST), _
    0, 0, 0, 0, FLAGS) <> 0
  End Sub

TopMost Form1.hwnd, True  ' Form bleibt immer im Vordergrund

TopMost Form1.hwnd, False ' hebt obigen Zustand wieder auf (Form kann wieder 
' verdeckt werden

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.