if CLIENT then
 concommand.Add( "testvgui", TestVGUI )
end

function TestVGUI( )

 local frame = vgui.Create( "Frame" )
 frame:SetSize( 200, 200 )
 frame:SetPos( 100, 100 )
 frame:SetVisible( true )
 frame:MakePopup( )
 frame:PostMessage( "SetTitle", "text", "garrysmod.com" )

 local html = vgui.Create( "HTML", frame )
 html:SetPos( 25, 25 )
 html:SetSize( 150, 150 )
 html:SetVisible( true )
 html:MakePopup( )
 html:OpenURL( "http://www.garrysmod.com" )
 
 local closeButton = vgui.Create( "Button", frame )
 closeButton:SetSize( 30, 20 )
 closeButton:SetPos( 75, 90 )
 closeButton:SetText( "Close" )
 
 function closeButton:DoClick( )
  self:SetText( "Closing..." )
  timer.Simple( 3 )
  frame:Remove()
 end
  
end