|
Dim uiaObj As IUIAutomation Dim uiaEle As IUIAutomationElement Set uiaObj = New CUIAutomation Set uiaEle = uiaObj.ElementFromHandle(ByVal hwnd)
Dim uiaObj As Object Dim uiaEle As Object Set uiaObj = CreateObject("UIAutomationClient.IUIAutomation") ' Set uiaEle = CreateObject("_._") ' ???