Mengenai Hwnd

Option Explicit

Private IWindowDef_Form As TestOCX.frmContainer

Private Sub Class_Initialize()
    Set IWindowDef_Form = New TestOCX.frmContainer
End Sub

Private Sub Class_Terminate()
    Call Unload(IWindowDef_Form)
    Set IWindowDef_Form = Nothing
End Sub


Public Property Get IWindowDef_Hwnd() As Long
    If Not IWindowDef_Form Is Nothing Then
        IWindowDef_Hwnd = IWindowDef_Form.fContainer.hWnd
    End If
End Property

Public Property Get IWindowDef_Width() As Long
    If Not IWindowDef_Form Is Nothing Then
        IWindowDef_Width = IWindowDef_Form.fContainer.Width
    End If
End Property

Public Property Let IWindowDef_Width(value As Long)
    If Not IWindowDef_Form Is Nothing Then
        IWindowDef_Form.fContainer.Width = value
    End If
End Property

Public Property Get IWindowDef_Height() As Long
    If Not IWindowDef_Form Is Nothing Then
        IWindowDef_Height = IWindowDef_Form.fContainer.Height
    End If
End Property

Public Property Let IWindowDef_Height(value As Long)
    If Not IWindowDef_Form Is Nothing Then
        IWindowDef_Form.fContainer.Height = value
    End If
End Property

Public Property Get IWindowDef_Top() As Long
    If Not IWindowDef_Form Is Nothing Then
        IWindowDef_Top = IWindowDef_Form.fContainer.Top
    End If
End Property

Public Property Let IWindowDef_Top(value As Long)
    If Not IWindowDef_Form Is Nothing Then
        IWindowDef_Form.fContainer.Top = value
    End If
End Property
Public Property Get IWindowDef_Left() As Long
    If Not IWindowDef_Form Is Nothing Then
        IWindowDef_Left = IWindowDef_Form.fContainer.Left
    End If
End Property

Public Property Let IWindowDef_Left(value As Long)
    If Not IWindowDef_Form Is Nothing Then
        IWindowDef_Form.fContainer.Left = value
    End If
End Property

Option Explicit

'Private clsTestOCX As TestOCX.clsTest
Private clsTestOCX As Object

Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

Private Sub Form_Load()
    Dim m_res As Long
'    Set clsTestOCX = New TestOCX.clsTest
    Set clsTestOCX = CreateObject("TestOCX.clsTest")
    m_res = SetParent(clsTestOCX.IWindowDef_Hwnd, Frame1.hWnd)
    clsTestOCX.IWindowDef_Height = Frame1.Height
    clsTestOCX.IWindowDef_Width = Frame1.Width
    clsTestOCX.IWindowDef_Left = 0
    clsTestOCX.IWindowDef_Top = 0

'    Frame1.hWnd = clsTestOCX.IWindowDef_Hwnd
End Sub

SetParent(clsTestOCX.IWindowDef_Hwnd, Frame1.hWnd)