Sub SetHeight(PV As ProgressView,Height As Float, Y As Float)
Dim NaObj As NativeObject = Me
NaObj.RunMethod("SetHeight:::",Array(PV.Height,Height,PV))
PV.Top = Y + Height/2
#if OBJC
-(void)SetHeight:(float)CurrentHeight :(float)NewHeight :(UIProgressView*)PV{
CGAffineTransform transform = CGAffineTransformMakeScale(1.0f,(NewHeight/CurrentHeight));
PV.transform = transform;
}
#end if
End Sub