Thanks Neil, I will give this a shot.
(But I did liked my approach...much less code :-))
"Neil Munro" wrote in message
news:414072e2_3@newsprd01...
> Try this instead:
>
> Place the following in a standard module:
>
>
'***************************************************************************
> ****************
> ' declarations and constants for setting window on top (of parent
> application)
>
'***************************************************************************
> ****************
>
> Public Const HWND_TOP = 0
> Public Const HWND_TOPMOST = -1
> Public Const HWND_NOTOPMOST = -2
> Public Const SWP_NOSIZE = &H1
> Public Const SWP_NOMOVE = &H2
> Public Const SWP_NOACTIVATE = &H10
> Public Const SWP_SHOWWINDOW = &H40
>
> Public 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
>
>
'***************************************************************************
> ****************
>
>
>
> Declare the following form level variable:
>
> Private m_lOriginalParenthWnd As Long
>
>
>
> In the form's load event, add the following: (Where m_oIVApp is the
variable
> holding a reference to the Inventor application object).
>
> 'set parent window to main IV window (always on top of IV app)
> On Error Resume Next
> m_lOriginalParenthWnd = SetWindowLong(Me.hwnd, GWL_HWNDPARENT,
> m_oIVApp.MainFrameHWND)
> If Err Then
> Err.Clear
> On Error GoTo 0
> End If
>
>
>
> Finally, restore the original parent window in the form's unload event:
>
> 'restore the original parent window before unloading
> Call SetWindowLong(Me.hwnd, GWL_HWNDPARENT, m_lOriginalParenthWnd)
>
>
> Neil
>
>
> "Teun Ham (IV9)" wrote in
> message news:414042d4$1_3@newsprd01...
> > Ok, I have found the problem...
> >
> > When loading the form, I use this to keep the form in front of Inventor:
> >
> > Private Sub Form_Load()
> > Call SetParent(Me.hWnd, InventorApp.MainFrameHWND)
> > End Sub
> >
> > Where "SetParent" is a public function:
> >
> > Public Declare Function SetParent Lib "user32" (ByVal hWndChild As Long,
> > ByVal hWndNewParent As Long) As Long
> >
> > If I remove the SetParent call from the Form_Load(), the Userform will
NOT
> > move down.
> >
> > How can I solve this???
> >
>
>
