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?
VB Code:
' 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




Reply With Quote