Private Sub lstFonts_Change()
Me.lblFontcboOverLabel = Me.lstFonts.Text
Me.lblFontcboOverLabel.Font = Me.lstFonts.Text
Me.lblFontcboOverLabel.Font.Size = 12
Fface = Me.lstFonts.Text
End Sub
I have added this code to display how the font looks (shown below). But notice i have text font set aside.
How do i get my test font to display in the "display box" and/or have my font change as i scroll through the list of fonts. I realize corelx6 kind of does this - but it doesnt allow me to single out fonts... Help?
