Mira hice algo asi:
Código:
Private Sub Listar()
Dim buf As Long, handle As Long, titulo As String, lenT As Long, ret As Long
List1.Items.Clear()
handle = GetWindow(GetDesktopWindow, GW_HWNDFIRST)
Le agregue el GetDesktopWindow como parametro, ahora el handle me da como resultado
8975933078237085696, al seguir el codigo igual me cuelga el programa en
lenT = GetWindowTextLength(handle) lo que pense era capturar la cantidad de caracteres asi:
Dim A as Integer
A = Len(GetWindowTextLength(handle))
Pero igual me sigue colgando el programa... como me ha costado pero se que lo conseguiré. Si se algo aca lo postearé, gracias.