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
Const HWND_TOPMOST As Long = -1
Const SWP_SHOWWINDOW As Long = &H40
'und damit immer im Vordergrund
   SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 2048 _
      , 786, SWP_SHOWWINDOW

[u]Mein System online

MfG ICE-MAN