Sub SetTrackImage(PV As ProgressView, Image As Bitmap)
Dim NaObj As NativeObject = PV
NaObj.RunMethod("setTrackImage:",Array(Image))
End Sub
Sub SetProgressImage(PV As ProgressView, Image As Bitmap)
Dim NaObj As NativeObject = PV
NaObj.RunMethod("setProgressImage:",Array(Image))
End Sub