Sub SetForegroundWindow(Title As String)
Dim WU As JavaObject
WU.InitializeStatic("com.sun.jna.platform.WindowUtils")
Dim user32 As JavaObject
user32 = user32.InitializeStatic("com.sun.jna.platform.win32.User32").GetField("INSTANCE")
Dim L As List = WU.RunMethod("getAllWindows",Array(False))
For Each JO As JavaObject In L
Dim t As String = JO.RunMethod("getTitle",Null)
If t.Contains(Title) Then
Dim hwnd As Object = JO.RunMethod("getHWND", Null)
user32.RunMethod("SetForegroundWindow", Array(hwnd))
user32.RunMethod("SetFocus", Array(hwnd))
user32.RunMethod("ShowWindow", Array(hwnd, 9))'SW_RESTORE
Return
End If
Next
Log("Window not found")
End Sub