Vex Explorer V4

Player = owner.Name

local ScreenGui = Instance.new("ScreenGui",game:GetService("Players")[Player].PlayerGui)
ScreenGui.Name = "Explorer"

function rgb(RED,GREEN,BLUE)
    local Count = 1 / 255
    --Red Count
    local red = Count * RED
    --Green Count
    local green = Count * GREEN
    --Blue Count
    local blue = Count * BLUE
    --Give Color3
    local FColor = Color3.new(red,green,blue)
    return FColor
end

local Frame = Instance.new("Frame",ScreenGui)
Frame.Position = UDim2.new(1 - (0.3/2),0,0,0)
Frame.Size = UDim2.new(0.3/2,0,1.5/2,0)
Frame.BackgroundColor3 = Color3.new(0.5,0.5,0.5)
Frame.Active = true
Frame.Selectable = true
Frame.Draggable = true

local ScrollingFrame = Instance.new("ScrollingFrame",Frame)
ScrollingFrame.Position = UDim2.new(0,0,0.1,0)
ScrollingFrame.Size = UDim2.new(1,0,0.9,0)
ScrollingFrame.BackgroundColor3 = Color3.new(1,1,1)
ScrollingFrame.CanvasSize = UDim2.new(1,0,0,0)

added = 0
addedSize = 0.05
function Add(Object,nr)
    added = added + 1
    ScrollingFrame.CanvasSize = UDim2.new(1,0,addedSize * added,0)

    local OP = Object.Parent
    local ON = Object.Name

    local TextButton = Instance.new("TextButton",ScrollingFrame)
    TextButton.Text = ON
    TextButton.Position = UDim2.new(0,0,0,0)
    TextButton.Size = UDim2.new(1,0,0,0)

    TextButton.BackgroundColor3 = rgb(45, 160, 255)
    TextButton.MouseButton1Click:Connect(function()
        if OP:FindFirstChild(ON) then
            Open(Object)
        end
    end)

    if nr then
        local TextButton2 = Instance.new("TextButton",TextButton)
        TextButton2.Text = "Remove"
        TextButton2.Position = UDim2.new(1-0.3,0,0,0)
        TextButton2.Size = UDim2.new(0.3,0,1,0)
        TextButton2.BackgroundColor3 = rgb(45, 160, 255)
        TextButton2.MouseButton1Click:Connect(function()
            if OP:FindFirstChild(ON) then
                Object:Remove()
                Open(OP)
            else
                Open(OP)
            end
        end)

        local TextLabel2 = Instance.new("TextLabel",TextButton)
        TextLabel2.Text = Object.ClassName
        TextLabel2.Position = UDim2.new(0,0,0,0)
        TextLabel2.Size = UDim2.new(0.3,0,1,0)
        TextLabel2.BackgroundColor3 = rgb(45, 160, 255)
    end

    local SizePerEach = ScrollingFrame.CanvasSize.Y.Scale / added
    local tbTable = ScrollingFrame:GetChildren()

    for i=1,added do
        local cTB = tbTable[i]
        cTB.Size = UDim2.new(1,0,SizePerEach / 2,0)
        cTB.Position = UDim2.new(0,0,(cTB.Size.Y.Scale * i) - cTB.Size.Y.Scale,0)
    end
end

function Open(Object)
    added = 0
    ScrollingFrame.CanvasSize = UDim2.new(1,0,0,0)
    for i,v in pairs(ScrollingFrame:GetChildren()) do
        v:Remove()
    end
    for i,v in pairs(Object:GetChildren()) do
            Add(v,true)
    end
    if Object.Parent ~= game then
        Add(Object.Parent,false)
    end
end

local TextLabel = Instance.new("TextLabel",Frame)
TextLabel.Text = "Vex Explorer V4"
TextLabel.Size = UDim2.new(1,0,0.1,0)
TextLabel.BackgroundColor3 = rgb(0, 140, 255)
TextLabel.TextScaled = true

Open(workspace,false)