假设要将 Form2 放在 Form1 中,请在宣告区中宣告:

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

在 Form2 中的 Form_Load 中加入 SetParent(Me.hWnd, Form1.hWnd) 即可。

但有一点要注意的是,在 Unload Form1 之前一定要先 Unload Form2。