Always on top

Jeg har dummet mig lidt, fordi jeg har fundet ud af hvordan man ligger noget always on top, men den funktion jeg bruger stjæler samtidigt focus fra andre programmer... ikke sejt...

Her kan i se den funktion jeg bruger...:

'----------- always on top constanter ---------
Private Const HWND_TOPMOST = -1
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOACTIVATE = &H10
Private Const SWP_SHOWWINDOW = &H40
Private Const TOPMOST_FLAGS = SWP_NOMOVE Or SWP_NOSIZE
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, y, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

'----------- Denne funktion gør at vinduet altid er øverst
Private Sub MakeTopMost(Handle As Long)
SetWindowPos Handle, HWND_TOPMOST, 0, 0, 0, 0, TOPMOST_FLAGS
End Sub

Private Sub Form_Load()
'----------- Aktivere altid øverst funktionen permanent
MakeTopMost Me.hwnd

AOT.Interval = 50
AOT.Enabled = True

End Sub

'------ Always On Toptimer------
Private Sub AOT_timer()
MakeTopMost Me.hwnd
End Sub


------------------------------------------------------------
Hjælp mig =)