always on top

i am using SetWindowPos function to set my application on top but my form starts flashing for 2-3 times when loads(may be other app try to get focus) how can stop my form from flashing?

i am using these values
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE

Have you tried just loading the form as vbModal until the user does whatever they need to?

yes i am loading the form as vbModal.

any other suggestions?

can you show the code in loading proc..

everything is fine but after flashing for 2-3 sec my form lost it's focus. Is there any way so that my form always load in focus?

But you dint show us the code to analyse...anyway check the attached zip file to load a form as Always on Top....

there is no problem with always on top code i want my app to be always in focus.

Try this:

VB Code:

Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_NOACTIVATE = &H10
Const SWP_SHOWWINDOW = &H40
 
Public Sub ActivateWindow()
 
    With FrmMain
        If Not .Visible Then .Visible = True
        .WindowState = vbNormal
        BringWindowToTop .hWnd
        SetWindowPos .hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
        SetWindowPos .hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
    End With
    
End Sub

no help :( ... app doing the same thing :(