Hi Kent
In .Net
When I call a form I do it this way
Private Sub Button_OnExecute
Dim m_MyForm As MyForm = New MyForm()SetParent(m_MyForm.Handle.ToInt32(), InventorApplication.MainFrameHWND)
MyForm.InventorApplication = InventorApplication
m_MyForm.ShowInTaskbar = False
m_MyForm.ShowDialog()
End sub
In my form
Public Class MyForm
Private Shared oApp As Inventor.Application
Private Declare Function SetParent Lib "user32" Alias "SetParent" (ByVal hWndChild As Int32, ByVal hWndNewParent As Int32) As Int32
#Region "Properties"
Public Shared Property InventorApplication() As Inventor.Application
Get
InventorApplication = oApp
End Get
Set(ByVal Value As Inventor.Application)
oApp = Value
End Set
End Property
#End Region
René J