本人经过大量试验找出了两种解决办法: 1、.net的正宗用法: Me.Parent = Myc Me.TopMost = True (其中me是当前窗体,myc是CAD的application) 2、VB6的API函数setparent (我认为这一方法最不可思议,函数也能改) Declare Function SetParent Lib "user32" Alias "SetParent" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long 这个申明函数改一下: Declare Function SetParent Lib "user32" Alias "SetParent" (ByVal hWndChild As integer, ByVal hWndNewParent As Long) As Long |