Option Explicit Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As LongPrivate Sub MDIForm_Resize() Picture1.Move 0, 0, Me.Width, Me.Height End SubPrivate Sub Picture1_Click() Load Form1 SetParent Form1.hWnd, Me.hWnd Form1.ShowEnd Sub
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As LongPrivate Sub MDIForm_Resize()
Picture1.Move 0, 0, Me.Width, Me.Height
End SubPrivate Sub Picture1_Click()
Load Form1 SetParent Form1.hWnd, Me.hWnd Form1.ShowEnd Sub