AccessibleObjectFromPoint : How to use?

[Willian F. Lopes]

Hi!

I'm trying to use AccessibleObjectFromPoint in code below.

**********************

Public Class Form1

Dim p As POINTAPI
Dim objAccessible As Object
Dim v As Object
Dim sName As String
Dim l As Long

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Timer1.Tick
Dim objAcessible As Object
Dim v As Object

' Get IAccessible interface from object under pointer.
AccessibleObjectFromPoint(Windows.Forms.Cursor.Position.X(),
Windows.Forms.Cursor.Position.Y(), objAccessible, v)

' Get name property of object under pointer.
sName = ""
On Error Resume Next
sName = objAccessible.ToString
Me.Text = sName
On Error GoTo 0
End Sub
End Class

**********************

Butt nothing happens, It's all empty!!! Where is the error?

thanks,

Willian

[expvb]

Multiposted to vb dotnet group. Again, This newsgroup is for VB6(VB Classic)
and lower only, which is incompatible with VB.Net. DotNet has separate
groups; all of which have either "dotnet" or "vsnet" in the name. If the
group has "vb" in the name without "dotnet", then it's for VB6 and lower
only.