如何用Excel的VBA切换到CAD程序？模拟ALT+TAB功能.

在网上找了一下,要实现这个目的.
先用HANDLE   hWnd   =   FindWindow(....)找到该程序的窗口,然后使用SendMessage(hwnd,   WM_ACTIVEAPP,....)   
  或是SetForgroudWindow(hWnd,   ....)就可以了,相激活自己也一样
请问各位大侠的问题是不是按hWnd   =   FindWindow(....)查找相关资料进行学习,才能实现目标需求.谢谢.excel调用cad程序如下
Function ConnectCad() As AcadApplication
  Dim App As AcadApplication
  On Error Resume Next
  Set App = GetObject(, "AutoCad.Application")
  If Err Then
    Err.Clear
    Set App = CreateObject("AutoCad.Application")
  End If
  App.Visible = True
  Set ConnectCad = App
End Function
excel调用CAD的关键语句,GetObject(, "AutoCad.Application")和CreateObject("AutoCad.Application")
用此模块程序的结果是,在excel中运行CAD只能看到EXCEL程序,要切换到CAD,须点击CAD图标,或alt+tab切换,才能实现目标需求.