VB向别的程序点击按钮

我希望能通过程序二点击按钮后发送动作到程序一，可是怎么样也不成功。不过还是能把程序激活在前台的，只是程序一不在窗体上输入字符。

程序一:
窗体的Caption是123
按钮的Caption是"确定"

代码：
Private Sub Command1_Click()
Print "aaaaa"
End Sub

程序二:
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Declare Function SetForegroundWindow Lib "user32" Alias "SetForegroundWindow" (ByVal hwnd As Long) As Long
Dim hwnd As Long

Private Sub Command1_Click()
hwnd = FindWi

在VB中，我想点击A按钮，同时也触动B按钮的程序 vb的按钮点击问题 VB程序按钮 怎样在VB中点击Button按钮向别人发送邮件呢？ 点击开始按钮后就提示“新安装新了程序” ？怎么回事啊！向高手求救 VB点击按钮打开C盘 vb 关闭别的程序 用 VB 嵌入一个别的程序。点击时直接运行。如想加一个音乐，一点击就直接听。 VB编写的一程序，点击按钮从数据库中抽数据时经常出现此种错误： vb程序怎么实现按钮转换？