能否在程序运行时选定对象？

hk_ella

Public Function SelectDeviceOpr(ActionName, DeviceName)
MatchFlag = 0
If Acti Then
  With Window("企业客户端").Dialog("日志管理")
ElseIf Acti Then
  With Window("企业客户端").Dialog("录像播放器").Dialog("录像查询")
End If
  .WinButton("->").Click
  ItemTotalCount = .Dialog("选择前端设备").WinTreeView("SysTreeView32").GetItemsCount
  For i=1 To (ItemTotalCount-1)
   NodeName = .Dialog("选择前端设备").WinTreeView("SysTreeView32").GetItemProperty( i, "text" )
   If NodeName = dLogManageArray(0) Then
    MatchFlag = 1
    .Dialog("选择前端设备").WinTreeView("SysTreeView32").Select i
    .Dialog("选择前端设备").WinButton("确定").Click
    Exit For
   End If
  Next
  If MatchFlag <> 1 Then
   Reporter.ReportEvent micWarning, LogType, "The specific device is not exist"
   .Dialog("选择前端设备").WinButton("取消").Click
   .Close
  End If
End with
SelectDeviceOpr = MatchFlag
End Function

在这个函数中，除了Window("企业客户端").Dialog("录像播放器").Dialog("录像查询")和Window("企业客户端").Dialog("日志管理")这个父对象不同之外，其它所有的都是相同的，但是这样写的话是有语法上的错误的
不知道有没有其它的什么变通的方法？
谢谢！