'Set connection timeout to 30 secs
Private wrk_ref As Reflector
wrk_ref.Target = Obj_FTPClient
Private wrk_client As JavaObject = wrk_ref.GetField("client")
Private wrk_timeout As Long = 30000
wrk_client.RunMethod("setConnectTimeout", Array(wrk_timeout))