Show my usercontrol "On top"

[Tomexx]

Hi,
I've used the following code to keep a form "On top" without problem.

I made a control similar to MSDatePicker and I'd like to keep it on top when
the date picker is open (right now when the date picker is placed at the
bottom of the form and opened there it will only be displayed up to the
bottom edge of the form).

Problem is that the UserControl doesn't have the .hWnd property.What can I do?

' Top most stuff in a module
Private Declare Function 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) As Long
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2
Private Const SWP_NOMOVE = 2
Private Const SWP_NOSIZE = 1
Private Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
  
' Usage:
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS

[|2eM!x]

Have you tried using the .zOrder property of it?

[jcis]

If you add this to your Usercontrol code..

Public Property Get hWnd() As Long 
    hWnd = UserControl.hWnd 
End Property

..then the hWnd should be accessible in code from the form (I think)

[Tomexx]

zOrder didn't work.

I did add hWnd property but still my control doesn't drop the bottom of my form.