关于一个窗体作为另一个窗体的子窗体

[flfq]

Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Public Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Const GWL_STYLE = (-16)
Const SW_SHOW = 5
Const WS_CHILD = &H40000000

Public Sub ShowAsChild(frmParent As Form, frmChild As Form)  
    SetWindowLong frmChild.hWnd, GWL_STYLE, GetWindowLong(frmChild.hWnd, GWL_STYLE) Or WS_CHILD    
    SetParent frmChild.hWnd, frmParent.hWnd
    ShowWindow frmChild.hWnd, SW_SHOW
 
End Sub

用上面的函数将一个窗体作为另一个窗体的子窗体，发现子窗体的不能响应回车、换行键，控件webbrowser不显示横向滚动条。有什么办法解决？

[dbcontrols]

Public Sub ShowAsChild(frmParent As Form, frmChild As Form)
'    SetWindowLong frmChild.hwnd, GWL_STYLE, GetWindowLong(frmChild.hwnd, GWL_STYLE) Or WS_CHILD
    SetParent frmChild.hwnd, frmParent.hwnd
    SetActiveWindow frmChild.hwnd
    ShowWindow frmChild.hwnd, SW_SHOW
 
End Sub

[lyserver]

代码对普通窗口没有问题（需要加上WS_CHILD风格，否则会造成窗口的焦点混乱），问题可能出在WebBrowser，WebBrowser会抢占键盘和鼠标资源。