How can I shorten this script?

function onClick()
	if script.Parent.Frame.Visible == false then
		script.Parent.Frame.Visible = true
		script.Parent.Frame.Position = UDim2.new(0,0,0,0)
		wait(0.1)
		script.Parent.Frame.Position = UDim2.new(0,0,0,10)
		wait(0.1)
		script.Parent.Frame.Position = UDim2.new(0,0,0,20)
		wait(0.1)		
		script.Parent.Frame.Position = UDim2.new(0,0,0,30)
		wait(0.1)		
		script.Parent.Frame.Position = UDim2.new(0,0,0,40)
		wait(0.1)		
		script.Parent.Frame.Position = UDim2.new(0,0,0,50)
		wait(0.1)		
		script.Parent.Frame.Position = UDim2.new(0,0,0,60)
		wait(0.1)		
		script.Parent.Frame.Position = UDim2.new(0,0,0,70)
		wait(0.1)		
		script.Parent.Frame.Position = UDim2.new(0,0,0,80)
		wait(0.1)		
		script.Parent.Frame.Position = UDim2.new(0,0,0,90)
		wait(0.1)		
		script.Parent.Frame.Position = UDim2.new(0,0,0,100)
		wait(0.1)		
		script.Parent.Frame.Position = UDim2.new(0,0,0,110)
		wait(0.1)		
	else 
		script.Parent.Frame.Position = UDim2.new(0,0,0,110)
		wait(0.1)
		script.Parent.Frame.Position = UDim2.new(0,0,0,100)
		wait(0.1)
		script.Parent.Frame.Position = UDim2.new(0,0,0,90)
		wait(0.1)		
		script.Parent.Frame.Position = UDim2.new(0,0,0,80)
		wait(0.1)		
		script.Parent.Frame.Position = UDim2.new(0,0,0,70)
		wait(0.1)		
		script.Parent.Frame.Position = UDim2.new(0,0,0,60)
		wait(0.1)		
		script.Parent.Frame.Position = UDim2.new(0,0,0,50)
		wait(0.1)		
		script.Parent.Frame.Position = UDim2.new(0,0,0,40)
		wait(0.1)		
		script.Parent.Frame.Position = UDim2.new(0,0,0,30)
		wait(0.1)		
		script.Parent.Frame.Position = UDim2.new(0,0,0,20)
		wait(0.1)		
		script.Parent.Frame.Position = UDim2.new(0,0,0,10)
		wait(0.1)		
		script.Parent.Frame.Position = UDim2.new(0,0,0,0)
		wait(0.1)
		script.Parent.Frame.Visible = false
	end
end

script.Parent.MouseButton1Click:connect(onClick)

Simple yet long :/