Dim x As Single = (TXT_TR.Text)
        Dim y As Single = (1)
        IMG_RE = IMG_ORG
        IMG_LI = IMG_ORG
        Dim gr1 As Graphics = PN_RE.CreateGraphics
        Dim gr2 As Graphics = PN_LI.CreateGraphics
        Dim units As GraphicsUnit
        units = GraphicsUnit.Pixel
        Dim destRect2 As New Rectangle(1, 1, 288, 176)
        gr1.DrawImage(IMG_RE, destRect2, x, y, IMG_RE.Width, IMG_RE.Height, _
          units)
 
        destRect2 = New Rectangle(1, 1, 288, 176)
        gr2.DrawImage(IMG_RE, destRect2, 1, 1, x, IMG_RE.Height, units)