09/03/05 01:25:00
よく見てみると、その後こう使ってるのか。動くのかな？
著作権とかはしらね
URLﾘﾝｸ(www.pinvoke.net)
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