以下代码测试通过:
-------------------------------------------------------------------
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function DestroyWindow Lib "user32" (ByVal hwnd As Long) As Long
Const GW_CHILD = 5
Private Sub Form_Load()
Dim cmb As ComboBox
Dim ChildHwnd As Long
Set cmb = Controls.Add("VB.ComboBox", "Combo1")'动态添加combox
cmb.Left = 10
cmb.Top = 10
cmb.AddItem "AAA"
cmb.AddItem "BBB"
cmb.Visible = True
ChildHwnd = GetWindow(cmb.hwnd, GW_CHILD) '取得Edit句柄
Call DestroyWindow(ChildHwnd) '销毁Edit窗口
End Sub
-------------------------------------------------------------------------