Sub CreateCenteredAttrString(Text As String, aFont As Font, Color As Int) As AttributedString
Dim NaObj1 As NativeObject
NaObj1 = NaObj1.Initialize("NSMutableParagraphStyle").RunMethod("new",Null)
NaObj1.SetField("alignment",1)
Dim Attr As Map = CreateMap("NSColor":NaObj1.ColorToUIColor(Color),"NSParagraphStyle":NaObj1,"NSFont":aFont)
Dim NaObj2 As NativeObject
NaObj2 = NaObj2.Initialize("NSAttributedString").RunMethod("alloc",Null).RunMethod("initWithString:attributes:",Array(Text,Attr.ToDictionary))
Return NaObj2
End Sub