Cambiar fuente en menús

Según se no se pueden cambiar al menos que hagas el menu por código.
Por ejemplo:
Clear
SET TALK OFF
SET SYSMENU SAVE
SET SYSMENU TO
PUBLIC markpad
markpad = .T.
DEFINE PAD syspad OF _MSYSMENU PROMPT '\<Sistema'
FONT "TAHOMA" ,10,STYLE "B"
COLOR SCHEME 3 ;
KEY ALT+S, ''
**************************
* La barra anterior saldra diferente a las Demas
**************************
DEFINE PAD editpad OF _MSYSMENU PROMPT '\<Edición' COLOR SCHEME 3 ;
KEY ALT+E, ''
DEFINE PAD recordpad OF _MSYSMENU PROMPT '\<Registro' COLOR SCHEME 3 KEY ALT+R, ''
DEFINE PAD windowpad OF _MSYSMENU PROMPT '\<Ventana' COLOR SCHEME 3 ;
KEY ALT+V, ''
DEFINE PAD reportpad OF _MSYSMENU PROMPT 'I\<nformes' COLOR SCHEME 3 ;
KEY ALT+N, ''
DEFINE PAD exitpad OF _MSYSMENU PROMPT '\<Salir' COLOR SCHEME 3 ;
KEY ALT+X, ''
ON SELECTION MENU _MSYSMENU ;
DO choice IN definpad WITH PAD( ), MENU( )
PROCEDURE choice
PARAMETER mpad, mmenu
WAIT WINDOW 'Ha elegido ' + mpad + ;
' del menú ' + mmenu NOWAIT
SET MARK OF PAD (mpad) OF _MSYSMENU TO ;
! MRKPAD('_MSYSMENU', mpad)
markpad = ! markpad
IF mpad = 'EXITPAD'
SET SYSMENU TO DEFAULT
Endif