PopupMenu TextFont

I would like to give my users some Font options and am using a PopupMenu list for them to select from rather than a Menu Item.

As I build the menu of available options, I have been able to list the Font Name with a simple
Me.AddRow( font(i) )

What would be really neat is to set the font of each row item to display in the font that it represents.

I have not been able to find a way to set the font individually for each added row - is that possible ?

Ron Bower