1,你的意思将若干菜单的子菜单动态合并为一个吧,需要考虑一下
2,可以用setparent api
Declare Function SetParent Lib "user32" Alias "SetParent" (ByVal hWndChild
As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Sub Command1_Click()
SetParent Form2.hWnd, Picture2.hWnd
Form2.Move 0, 0
Form2.Show
End Sub