How can I have Emacs use a font menu like on X? ​

Place the following in your init file:

emacs-lisp
(setq w32-use-w32-font-dialog nil)