VB窗口中一个命令调用另一命令

Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" ( _
     ByVal lpClassName As String, _
     ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" ( _
     ByVal hWnd1 As Long, _
     ByVal hWnd2 As Long, _
     ByVal lpsz1 As String, _
     ByVal lpsz2 As String) As Long
Private Declare Function PostMessage Lib "user32.dll" Alias "PostMessageA" ( _
     ByVal hwnd As Long, _
     ByVal wMsg As Long, _
     ByVal wParam As Long, _
     ByVal lParam As Long) As Long
Private Const WM_LBUTTONDOWN As Long = &H201
Private Const WM_LBUTTONUP As Long = &H202
Dim hDest As Long           '目标按钮句柄
Private Sub Command1_Click()
On Error GoTo ErrHandler
    
    
'''连接cad
    Dim acadapp As Object  'AcadApplication
    Dim Thisdrawing As Object  'AcadDocument
   ' Dim thisDrawing As Object
    Set acadapp = GetObject(, ".Application")
    If Err Then
        Err.Clear
        Set acadapp = CreateObject("AutoCAD.Application")
        If Err Then
            MsgBox Err.Description
            End
            Exit Sub
        End If
    End If
    acadapp.Visible = True
    Set Thisdrawing = acadapp.ActiveDocument
    Thisdrawing.SendCommand "TEST" & vbCr '应该改进cad程序运行成功应该将这些数据从库中删除
ErrExit:
    
    Exit Sub
    
ErrHandler:
    MsgBox "运行时发生意外，请检查AutoCAD文件是否打开!", vbCritical, "提示"
    GoTo ErrExit
End Sub
Private Sub Command2_Click()
MsgBox "测试怎么样?"
End Sub
Private Sub Command3_Click()'==================================================
'时间长了,加个备注
 '1.  form_load的内容,同理 也可实现调用Command1
 '2.  如调用command1的内容,也就是lisp命令可以前置 ,再运行其他vb内容
'==================================================
End Sub
Private Sub Form_Load()
'==================================================
'时间长了,加个备注
  '通过form_load启动调用了 command2 命令，如将form_load的内容放入一个命令Command3中，
  '即Command3可以调用command2 命令
'==================================================
   '寻找按钮句柄
    '
    '具体代码内容根据软件的结构不同而不同,参考SPY++中目标软件的结构图
    '
    Dim hTmp As Long
    
    hTmp = FindWindow(vbNullString, "12345") '    12345 为窗体名字' findwindow(vbnullstring,"窗体名字")
    
    If hTmp  0 Then
         hDest = FindWindowEx(hTmp, 0, vbNullString, "Command2")     
         End If
   If hDest  0 Then
        SendClick hDest, 10, 10              '
    Else
        MsgBox "还未找到句柄!"
    End If
End Sub
Private Function SendClick(hwnd As Long, mX As Long, mY As Long)
    '发送点击消息
    Dim I As Long
    I = PostMessage(hwnd, WM_LBUTTONDOWN, 0, (mX And &HFFFF) + (mY And &HFFFF) * &H10000)
    I = PostMessage(hwnd, WM_LBUTTONUP, 0, (mX And &HFFFF) + (mY And &HFFFF) * &H10000)
End Function