I have 2 variable like below:
width# = GetDeviceWidth()
height# = GetDeviceHeight()
and multiply them from 0.1 until 500 but do't show anything.500 is only for test.I tried random number from 0.1 to 500 In order that maybe see anything.
global Dim clonebtn [12]
for a = 1 to 4
if GetSpriteExists(clonebtn[a]) = 0 then clonebtn[a] = CloneSprite(btn)
SetSpriteVisible(clonebtn[a],0)
SetSpriteColor(clonebtn[a],0,255,64,255)
SetSpriteSize(clonebtn[a],width#*500,height#*500)
SetSpritePosition(clonebtn[a],-40+a*200,40)
for b = 5 to 8
if GetSpriteExists(clonebtn[b]) = 0 then clonebtn[b] = CloneSprite(btn)
SetSpriteVisible(clonebtn[b],0)
SetSpriteColor(clonebtn[b],0,255,64,255)
SetSpriteSize(clonebtn[b],width#*500,height#*500)
SetSpritePosition(clonebtn[b],-40+(b-4)*200,200)
next b
for c = 9 to 12
if GetSpriteExists(clonebtn[c]) = 0 then clonebtn[c] = CloneSprite(btn)
SetSpriteVisible(clonebtn[c],0)
SetSpriteColor(clonebtn[c],0,255,64,255)
SetSpriteSize(clonebtn[c],width#*500,height#*500)
SetSpritePosition(clonebtn[c],-40+(c-8)*200,360)
next b
next a