Sub Resample(Input As Image,S As Int) As Image
Dim W As Double = Input.Width
Dim H As Double= Input.Height
Dim SW As Int = Input.Width * S
Dim SH As Int = Input.Height * S
Dim InputJO,OutputJO,ReaderJO,WriterJO As JavaObject
OutputJO.InitializeNewInstance("javafx.scene.image.WritableImage",Array As Object(SW,SH))
InputJO = Input
ReaderJO = InputJO.RunMethod("getPixelReader",Null)
WriterJO = OutputJO.RunMethod("getPixelWriter",Null)
Dim ARGB As Int
For y = 0 To H-1
For x = 0 To W -1
ARGB = ReaderJO.RunMethod("getArgb",Array As Object(x,y))
For dy = 0 To S - 1
For dx = 0 To S -1
WriterJO.RunMethod("setArgb",Array As Object(x * S + dx, y * S + dy,ARGB))
Next
Next
Next
Next
Return OutputJO
End Sub