Sub ScrollTo2(TV As TextView,Index As Int)
Dim NaObj As NativeObject = Me
NaObj.RunMethod("Scroll::",Array(TV,Index))
#If Objc
-(void)Scroll:(UITextView*)TV :(int)Index{
[UIView setAnimationsEnabled:NO];
[TV scrollRangeToVisible:NSMakeRange(Index,0)];
[UIView setAnimationsEnabled:YES];
}
#End if
End Sub