Dim NaObj As NativeObject = Me
NaObj.RunMethod("SetFont::", Array (Font.CreateNew(30),SegmentedControl1))
#If OBJC
-(void)SetFont:(UIFont *)Font :(UISegmentedControl *)SegmentedControl{
NSDictionary *attributes = [NSDictionary dictionaryWithObject:Font forKey:NSFontAttributeName];
[SegmentedControl setTitleTextAttributes:attributes forState:UIControlStateNormal];
}
#End If