Private Sub Form2_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim varChild As Accessibility.IAccessible Dim hWnd As Int32 = GetForegroundWindow() Dim ID As Int32 = 0 Dim IID_IAcce As Guid = New Guid("618736E0-3C3D-11CF-810C-00AA00389B71") Dim aaVal As Int32 = AccessibleObjectFromWindow(hWnd, ID, IID_IAcce, varChild) End Sub