always on top

[xor83]

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

[timeshifter]

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

[xor83]

yes i am loading the form as vbModal.

[xor83]

any other suggestions?

[ganeshmoorthy]

can you show the code in loading proc..

[xor83]

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?

[ganeshmoorthy]

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

[xor83]

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

[JacquesLebrun]

Try this:

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

[xor83]

no help ... app doing the same thing