Sub jrtf2java
Dim mjrtf As JavaObject
mjrtf.InitializeStatic("com.tutego.jrtf.Rtf")
Dim RtfText As JavaObject
RtfText.InitializeStatic("com.tutego.jrtf.RtfText")
RtfText.RunMethodjo("bold",Array( "Hello RTF")).RunMethod("toString",Null)
Dim writer As JavaObject
writer.InitializeNewInstance("java.io.FileWriter",Array(File.Combine(File.DirRootExternal,"mout.doc"),False))
mjrtf.RunMethodJO("rtf",Null).RunMethodJO("out",Array As Object(writer))
End Sub