Public Sub Connect(Host As String, Port As Int, User As String, Password As String)
ftp.Initialize("FTP", Host, Port, User, Password)
Dim r As Reflector
r.Target = ftp
Dim ftpJO As JavaObject = r.GetField("client")
ftpJO.RunMethod("setControlEncoding", Array("UTF8"))
End Sub