concommand.Add("_Open", function()
    frame:SetVisible(true)
end)

frame = vgui.Create( "DFrame" )
frame:SetSize( ScrW() / 4, ScrH() / 4)
frame:Center()
frame:MakePopup()
frame:SetVisible(true)
frame:ShowCloseButton(false)

CloseButton = vgui.Create("DButton" , frame)
CloseButton:SetPos(410,2)
CloseButton:SetSize(70,24)
CloseButton:SetText("Close")
CloseButton.DoClick = function()
    frame:SetVisible(false)
end


DCollapsible = vgui.Create( "DCollapsibleCategory", frame )
DCollapsible:SetLabel( "Collapsible Category" )
DCollapsible:SetPos( 100, 50 )
DCollapsible:SetSize( 250, 100 )
DCollapsible:SetExpanded( false )

DermaList = vgui.Create( "DPanelList", DermaPanel )
DermaList:SetSpacing( 5 )
DermaList:EnableHorizontal( false )
DermaList:EnableVerticalScrollbar( true )
DCollapsible:SetContents( DermaList )


MakeCamera = vgui.Create("DButton" , frame)
MakeCamera:SetPos(10,50)
MakeCamera:SetSize(70,24)
MakeCamera:SetText("Make Camera")
MakeCamera.DoClick = function()

frame2 = vgui.Create( "DFrame" )
frame2:SetSize( 400, 55 )
frame2:Center()
frame2:MakePopup()
frame2:SetTitle("Camera Name")


TextEntry = vgui.Create( "DTextEntry", frame2 )
TextEntry:Dock( TOP )
TextEntry.OnEnter = function( self )

       name = self:GetValue()
	   randNumb = math.random(1, 100000)
       MakeFrameTest(name..randNumb, name..randNumb, name, name)
       frame2:SetVisible(false)
end
end



function MakeFrameTest(Identifier, Identifier2, Title, Title2)

Identifier = vgui.Create( "DFrame" )
Identifier:SetSize( ScrW() /5, ScrH() /5)
Identifier:SetVisible(true)
Identifier:ShowCloseButton(false)
Identifier:SetSizable(true)
Identifier:SetTitle(Title)

Identifier2 = vgui.Create( "DCheckBoxLabel" )
Identifier2:SetText( Title2 )
Identifier2:SetValue( 1 )
Identifier2:SizeToContents()
DermaList:AddItem( Identifier2 )

function Hook2()
	if Identifier2:GetChecked() then
		Identifier:SetVisible(true)
	else
		Identifier:SetVisible(false)
end
end

hook.Add( "Think", "thing2", Hook2 )


	local ply = LocalPlayer()
	local pos = ply:GetPos()
	local eye = ply:EyeAngles()

function Identifier:Paint( w, h )

	local x, y = self:GetPos()

	local old = DisableClipping( true )
	render.RenderView( {
		origin = Vector( pos.x, pos.y, pos.z+64 ),
		angles = Angle( eye.x, eye.y, eye.z ),
		x = x, y = y,
		w = w, h = h
	} )
	DisableClipping( old )

end
end