Aquí tienes el código que usa la API:
Option Explicit
Private Sub Command1_Click()
Timer1.Enabled = Not Timer1.Enabled
If Timer1.Enabled Then
Command1.Caption = "Stop"
Else
Command1.Caption = "Start"
End If
End Sub
Private Sub Timer1_Timer()
Dim retval As Long ' return value
If Enumerando Then Exit Sub
Label1.Caption = "Sophos NO Detectado"
Enumerando = True
retval = EnumWindows(AddressOf EnumWindowsProc, 0)
Enumerando = False
End Sub
El codigo anterior va en un form, con un commandbutton y un timer con intervalo de 1 segundo.
Para que la clase IAccessible sea reconocida, necesitas agregar una referencia a la libreria oleacc.dll.
Saludos!
PD: No te ofendas, pero creo que deberias aprender cómo funciona el Sistema Operativo, antes de intentar programarlo...