Dim WU As JavaObject
    WU.InitializeStatic("com.sun.jna.platform.WindowUtils")
    Dim L As List = WU.RunMethod("getAllWindows",Array(True)) ' or False if you want to include windows that are not visible
 
    For Each JO As JavaObject In L
        Log(JO.RunMethod("getTitle",Null))
    Next