没有人知道吗？？？？？？？？？？？？？？

Option Explicit

Private Declare Function SetParent Lib "user32" (ByVal hwndChild As Long, ByVal hwndParent As Long) As Long

Private Sub Form_Click()
    Call SetParent(Form2.Frame1.hwnd, Me.hwnd)
End Sub

Private Sub Form_Load()
    Form2.Show
    Me.Show
End Sub