If MouseDown(1) Then scl=scl*1.01 Else scl=scl*.995 EndIf If scl>1.5 Then scl=1.5 If scl<1 Then scl=1 ScaleEntity Pric,scl,scl,scl