Setting font in XEmacs under Windows

This is an example on how to set the fonts in XEmacs under Windows.

(when (memq (device-type) '(mswindows))
   (set-face-font 'default "Courier New:Regular:8::")
   (set-face-font 'buffers-tab "Courier New:Bold:8::")
   (set-face-font 'bold "Courier New:Bold:8::")
   (set-face-font 'italic "Courier New:Italic:8::"))