My lag meter script bugging and not detecting lag help?

runService = game:service("RunService")
runService.Stepped:connect(function() frames = frames + 1 end)

frames = 0
Result = 0
Color = 0
local f = Instance.new("TextLabel")
f.Position = UDim2.new(0.5,0,0.975,0)
f.Text = script.Parent.Parent.Parent.Parent.Name
f.Parent = script.Parent.Parent.Parent



while true do
	Result = ((frames/30) - 1) * -1
	if (Result < 0) then
		Result = 0
	end

	Color = (frames/15) * 255
	if(Color > 255)then
		Color = 255
	elseif(Color < 0)then
		Color = 0
	end
	print(Color)

	f.TextColor = BrickColor.new(Color3.new(255 - Color, Color, 0))
	script.Parent.Size = UDim2.new(1,0,-Result,0)
	script.Parent.BackgroundColor = BrickColor.new(Color3.new(255 - Color, Color, 0))

	frames = 0
	wait(1)
end

Tell where the problem is and what it is. Thanks!