HI Guys,

I want my userform to always stay on top. At the moment it does until a new excel book opens up effectively hiding it.

My code in the userform is:

Private Sub UserForm_Initialize()

    Const C_VBA6_USERFORM_CLASSNAME = "ThunderDFrame"
    
    Dim ret As Long
    Dim formHWnd As Long
    HideTitleBar Me
    
    'Get window handle of the userform
    
    formHWnd = FindWindow(C_VBA6_USERFORM_CLASSNAME, Me.Caption)
    If formHWnd = 0 Then
        Debug.Print Err.LastDllError
    End If

    'Set userform window to 'always on top'
    
    ret = SetWindowPos(formHWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)
    If ret = 0 Then
        Debug.Print Err.LastDllError
    End If
    
End Sub
This is the code I run in my subs to call the form
SplashFormPleaseWait.Show (vbModeless)
    SplashFormPleaseWait.Repaint
If I run the userform code by itself, it stays on top when I click around....

any ideas?

Thanks