Form1.AutoRedraw = True

Public Function EnumChildProc(ByVal hwnd As Long, _
                              ByVal lParam As Long) As Long
   Dim sTitle As String
   Dim sClass As String
   Dim sIDType As String
   sTitle = GetWindowIdentification(hwnd, sIDType, sClass)
   If UCase(TrimNull(sClass)) = "TOOLBARWINDOW32" Then
    Dim Pid As Long
    LockWindowUpdate GetDesktopWindow
    PutCombo hwnd
    'SetParent Form1.Frame1.hwnd, hwnd
    Putfocus mWnd
    LockWindowUpdate False
   End If
   EnumChildProc =  1 
End Function
Private Sub PutCombo(nWnd As Long)
    Dim Pid As Long
    LockWindowUpdate GetDesktopWindow
    SetParent Form1.Combo1.hwnd, nWnd
    LockWindowUpdate False
End Sub