VB 怎么控制其它程序中的按钮

VB 如何控制其它程序中的按钮
系统windows7,VB60
其它程序是指没有源码的情况下，只知道程序叫什么，按钮的名称叫什么？
如何通过VB调用那么按钮?
我在网上找了一段代码但是不得行
Function FindWnd(Phwnd As Long, ClassName As String, index As Long) As Long
Dim i As Integer
Dim childHwnd As Long
childHwnd = FindWindowEx(Phwnd, 0, ClassName, vbNullString)
Do While childHwnd
i = i + 1
If i = index Then
FindWnd = childHwnd
Exit Do
End If
childHwnd = FindWindowEx(Phwnd, childHwnd, ClassName, vbNullString)
Loop

End Function

Dim i As Long, Phwnd As Long
Phwnd = FindWindow(vbNullString, "计算器")
i = FindWnd(Phwnd, "Button", 1)
End Sub
上面的i总是 0也就是没有找到,当然也就无法使用sendmessage了
是不是在windows7下面这个函数是无效的。
phwnd是有数字的
谢谢 ！

------解决方案--------------------
http://download.csdn.net/detail/veron_04/2813308