Local window:TGadget=CreateWindow("Beispielfenster",120,120,290,290)

window_on_top(window)

Repeat
   WaitEvent()
   Select EventID()
      Case EVENT_WINDOWCLOSE
      Select EventSource()
         Case window
         End
      End Select
   End Select
Forever   

Extern "Win32"
   Function SetWindowPos(hwnd:Int,hwndInstertAfter:Int,x:Int,y:Int,cx:Int,cy:Int,uFlags:Int)
   Function SetForegroundWindow(hwnd)
End Extern
   
Function window_on_top(window:TGadget)
   ?Win32
   Local hwnd:Int = QueryGadget(window,QUERY_HWND)
   Local hwndInstertAfter:Int = HWND_TOPMOST
   Local x:Int= window.xpos
   Local y:Int= window.ypos
   Local cx:Int= window.width
   Local cy:Int= window.height
   Local uFlags:Int= SWP_SHOWWINDOW
   SetWindowPos(hwnd,hwndInstertAfter,x,y,cx,cy,uFlags)
   SetForegroundWindow(hwnd)
   ?
End Function