vb老鸟们,帮小弟看看,这个怎么实现啊?????

Question

……这里上传文件有问题，没法把spy++的截图发上来了，只好手绘了，希望看的懂-窗口000A0036"事务管理系统 v2.5.4.30 - [医保办零星报销受理]"TfrmYbbBxSl
---窗口（省略）
---窗口（省略）
-----窗口（省略）
-------窗口（省略）
---------窗口（省略）
---------窗口（省略）
---------窗口（省略）
---------窗口（省略）
---------窗口（省略）
-----------窗口（省略）
-----------窗口（省略）
-----------窗口（省略）
-----------窗口（省略）
-----------窗口（省略）
-----------窗口（省略）
-----------窗口0001035C"本人办理"TRadioButton如何才能直接找到最后一句的句柄啊？自己写了一段代码，但总觉得实在是太笨，有没有什么好的函数可以优化啊？？谢谢（画这个spy的截图恶心死我了）
我的代码如下，请高人看看：：
Private Sub Form_Load()
Dim cn As Long
cn = FindWindow(vbNullString, "事务管理系统 v2.5.4.30 - [医保办零星报销受理]")
MsgBox (cn & "父窗口")
cn = GetNextWindow(cn, 5) '第一层第一子
cn = GetNextWindow(cn, 2) '第一层第二子
cn = GetNextWindow(cn, 5) '第二层第一子
cn = GetNextWindow(cn, 5) '第三层第一子
MsgBox (cn & "c.1")
i = 1
For i = 1 To 4 '循环到第三层第五子
cn = GetNextWindow(cn, 2)
Next i
cn = GetNextWindow(cn, 5) '第四层第一子
MsgBox (cn & "D.1")
i = 1
For i = 1 To 6
cn = GetNextWindow(cn, 2)
Next i
MsgBox (cn)
End Sub

Answer 1

用findwindowex应该行吧 ，我倒是没有跨层用过，我刚用过这个函数，他是寻找子窗体的函数