Dim no As NativeObject = cs
Dim paragraph As NativeObject
paragraph = paragraph.Initialize("NSMutableParagraphStyle").RunMethod("new", Null)
paragraph.SetField("baseWritingDirection", 1) 'NSWritingDirectionRightToLeft
no.RunMethod("addAttribute:value:range:", Array("NSParagraphStyle", paragraph, no.MakeRange(0, cs.Length)))