function Menu ()

  local bhm_menu = vgui.Create( "DFrame" )
  bhm_menu:SetSize( ScrW() /2, ScrH() /2 )
  bhm_menu:Center()
  bhm_menu:ShowCloseButton( true )
  bhm_menu:SetSizable( false )
  bhm_menu:SetDraggable( false )
  bhm_menu:MakePopup()
  bhm_menu:SetDeleteOnClose( true )
  bhm_menu:SetTitle( "Computer Hacking Menu" )
  bhm_menu:SetVisible( true )
  bhm_menu.Paint = function ( self, w, h )
    draw.RoundedBox( 0,0,0,bhm_menu:GetWide(),bhm_menu:GetTall(), Color( 0, 0, 0, 100 ) )
    draw.RoundedBox( 0,0,0,bhm_menu:GetWide(), 25,  Color( 0, 0, 0, 150 ) )
    surface.SetDrawColor( 0,255,0,255 )
    surface.DrawOutlinedRect( 0,0,bhm_menu:GetWide(),bhm_menu:GetTall() )
    surface.DrawOutlinedRect( 0,0,bhm_menu:GetWide(), 25 )
    surface.SetDrawColor( 0,255,0,255 )
    surface.DrawOutlinedRect( 0,0,bhm_menu:GetWide() /2 *2 ,  bhm_menu:GetTall() /2 *2)
  end

  local bhm_hackbutton = vgui.Create( "DButton",bhm_menu )
  bhm_hackbutton:SetSize( 300, 50 )
  bhm_hackbutton:SetText( "Start Hacking" )
  bhm_hackbutton:SetFont( "CloseCaption_BoldItalic" )
  bhm_hackbutton:SetTextColor(Color(255,255,255,255))
  bhm_hackbutton:SetDark( false )
  bhm_hackbutton:SetMouseInputEnabled( true )
  bhm_hackbutton:Center()
  bhm_hackbutton.Paint = function()
    draw.RoundedBox( 0,0,0,bhm_hackbutton:GetWide(),bhm_hackbutton:GetTall(),Color( 0,0,0,100 ) )
    surface.SetDrawColor( 0,255,0,255 )
    surface.DrawOutlinedRect( 0,0,bhm_hackbutton:GetWide(),  bhm_hackbutton:GetTall() )
  end
  bhm_hackbutton.OnCursorEntered = function ()
    bhm_hackbutton:SetTextColor( Color(0,255,0,150) )
    draw.RoundedBox( 0,0,0,bhm_hackbutton:GetWide(),bhm_hackbutton:GetTall(),Color( 0,0,0,150 ) )
  end
  bhm_hackbutton.OnCursorExited  = function ()
    bhm_hackbutton:SetTextColor( Color( 255,255,255,255) )
    draw.RoundedBox( 0,0,0,bhm_hackbutton:GetWide(),bhm_hackbutton:GetTall(),Color( 0,0,0,100 ) )
  end
  bhm_hackbutton.DoClick = function ()
    bhm_hackbutton:SetTextColor( Color( 0,0,0,255 ) )
    draw.RoundedBox( 0,0,0,bhm_hackbutton:GetWide(),bhm_hackbutton:GetTall(), Color( 0,0,0,255 ) )
    net.Start( "bmh_sendhackstring" )
    net.SendToServer()
    bhm_menu:Remove()
    ProgressFunction()
  end