摘要：Option Explicit Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As LongPrivate Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As LongPrivate lHwnd As Long Private Sub Form_Load() On Error GoTo ErrTrap Dim acadAp 阅读全文