Dim anchopantalla As Int = 6
Dim altopantalla As Int = 6
'''Dim source() As Float = Array As Float(4.0, 4.0, 29.0, 16.0, 27.0, 37.0, 5.0, 20.0)
Dim source() As Float = Array As Float(10, 20, 130, 20, 130, 140, 10, 140)
Dim destination() As Float = Array As Float(0, 0, anchopantalla, 0, anchopantalla, altopantalla, 0, altopantalla)
Dim ToXY() As Float = Array As Float(X, Y)
Dim FromXY() As Float = WhereDidItComeFrom(source, destination, ToXY)
Dim dstwidth As Float = dst(4)
Dim dstheight As Float = dst(5)
Dim dstx As Float = dstxy(0)
Dim dsty As Float = dstxy(1)
Dim HowMuchRight As Float = dstx / dstwidth
Dim HowMuchLeft As Float = 1 - HowMuchRight
Dim HowMuchBottom As Float = dsty / dstheight
Dim HowMuchTop As Float = 1 - HowMuchBottom
Dim HowMuchTopLeft As Float = HowMuchTop * HowMuchLeft
Dim HowMuchTopRight As Float = HowMuchTop * HowMuchRight
Dim HowMuchBottomLeft As Float = HowMuchBottom * HowMuchLeft
Dim HowMuchBottomRight As Float = HowMuchBottom * HowMuchRight
Dim srcx As Float = src(0) * HowMuchTopLeft _
Dim srcy As Float = src(1) * HowMuchTopLeft _
Dim srcxy() As Float = Array As Float(srcx, srcy)