Gui movement is kind of glitchy and buggy, how do i fix it?

I made a script to move a gui by moving the arrow keys, and everything works just like expected, but not really. First: when i move gui with the arrow keys in two different directions, for example up and left at the same time, its really glitchy. Plz helps.

script:

local uis = game:GetService("UserInputService")

local currentposition = script.Parent.Position

function MoveLeft()
	local moving = false	
	uis.InputBegan:Connect(function(input, gameprocessedevent) 
		if input.KeyCode == Enum.KeyCode.Left then
			moving = true
			while moving == true do
				wait(0.01)
				script.Parent.Position = script.Parent.Position - UDim2.new(0, 7, 0, 0)
			end
		end
	end)
	uis.InputEnded:Connect(function(input)
		if input.KeyCode == Enum.KeyCode.Left then
			moving = false
		end
	end)
end

function MoveRight()
	local moving = false
	uis.InputBegan:Connect(function(input, gameprocessedevent) 
		if input.KeyCode == Enum.KeyCode.Right then
			moving = true
			while moving == true do
				wait(0.01)
				script.Parent.Position = script.Parent.Position + UDim2.new(0, 7, 0, 0)	
			end
		end		
	end)
	uis.InputEnded:Connect(function(input)
		if input.KeyCode == Enum.KeyCode.Right then
			moving = false
		end
	end)
end

function MoveUp()
	local moving = false
	uis.InputBegan:Connect(function(input, gameprocessedevent) 
		if input.KeyCode == Enum.KeyCode.Up then
			moving = true
			while moving == true do
				wait(0.01)
				script.Parent.Position = script.Parent.Position - UDim2.new(0, 0, 0, 5)	
			end
		end		
	end)
	uis.InputEnded:Connect(function(input)
		if input.KeyCode == Enum.KeyCode.Up then
			moving = false
		end
	end)
end

function MoveDown()
	local moving = false
	uis.InputBegan:Connect(function(input, gameprocessedevent) 
		if input.KeyCode == Enum.KeyCode.Down then
			moving = true
			while moving == true do
				wait(0.01)
				script.Parent.Position = script.Parent.Position + UDim2.new(0, 0, 0, 5)	
			end
		end		
	end)
	uis.InputEnded:Connect(function(input)
		if input.KeyCode == Enum.KeyCode.Down then
			moving = false
		end
	end)
end

MoveLeft()
MoveRight()
MoveDown()
MoveUp()