Dim jo As JavaObject = HttpClient1
Dim nativeClient As JavaObject = jo.GetField("client")
nativeClient.RunMethodJO("getDispatcher", Null).RunMethod("setMaxRequests", Array (10))
nativeClient.RunMethodJO("getDispatcher", Null).RunMethod("setMaxRequestsPerHost", Array (10))