Its not a Ms answer but itlss stop you having to go back to windows 8 if this is your only reason (for me no ability to use installable VPN clients is the killer issue). There is one way,
Autohotkey
I wrote a script a while ago, but commented out the pen click as it wasn't needed after the surface app.
I've added the ability to advance slides in PowerPoint using the pen button (when PowerPoint is the active window)
Also double click the pen in OneNote to get the drawing pens.
#NoEnv
;#AllowSameLineComments
#SingleInstance force
#InstallKeybdHook
#HotkeyInterval 2000
#MaxHotkeysPerInterval 300
SetTitleMatchMode, 2
;/*
; remap surface pen button to launch any program
#F20::
; change this file location to launch whatever program you desire
Run C:\Program Files\Microsoft Office 15\root\office15\OneNote.exe
return
;*/
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;Ctrl Enter to send email froim mail app ;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#IfWinActive, Mail
^Enter::
send !s
return
#IfWinActive
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;Double click stylus to activate pen palette in OneNote desktop;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#ifwinactive, OneNote
;#ifwinactive ahk_class Framework::CFrame
#F19::
sleep 50
send {alt} ;activate menu hotkeys
sleep 50 ;wait for menu to activate, you may need to tweak this
send dp ;select draw=>pens. this can be changed to whatever menu hotkeys you want. 2{alt} will undo your last action, wf will toggle between windowed and full screen.
;send {alt}d ;to select Draw tab
;send p ;to select pen
return
#IfWinActive
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;sleepy screen;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#Escape::SendMessage 0x112, 0xF170, 2, , Program Manager
return
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;Map pen click to advance slides in full screen powerpoint
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#IfWinExist ahk_class screenClass
#F20::
Send {Space}
return