Sorry for the late response.
dim P1Pic as xpBaseObject
dim P1PicMat as xpMaterial
dim shader as xpBaseShader
P1Pic.GetMaterial(4, P1PicMat)
P1PicMat.GetShader(0, shader)
shader.TextureScaleX=100
shader.TextureScaleY=100
P1Pic.SetMaterial(4, P1PicMat)
#XPression