Setfocus problem

'---------------------------------- Form1 ----------------------------------
Option Explicit

Private Const HWND_TOPMOST = -1
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOACTIVATE = &H10
Private Const SWP_SHOWWINDOW = &H40
Private Const SWP_ALL = SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE

Private Declare Sub 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)
Private Declare Function SetForegroundWindow Lib "User32" (ByVal hWnd As Long) As Long
Private Declare Function GetForegroundWindow Lib "User32" () As Long

Private lFocus As Long

Private Sub Form_Activate()
  ' Når dette vindue er aktivt setes det til altid øverst
  SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_ALL
 
  ' Hvis lFocus ikke er samme vindue som Me.hWnd
  If lFocus <> Me.hWnd Then
    ' Setter lFocus forst
    SetForegroundWindow lFocus
  End If
End Sub

Private Sub Form_Load()
  ' Gemmer det vindue som har fokus før dette vindue bliver vist
  lFocus = GetForegroundWindow
End Sub
'---------------------------------- Form1 ----------------------------------

Kan du bruge det??

Ja :) læg svar hvis du stadig læser.

:P