VB Code:
  1. Private Sub mnuLabelFontStyleBoldItalic_Click()
  2.     With lblText(m_intControlIndex)
  3.         .Font.Bold = Not .Font.Bold
  4.         .Font.Italic = [b].Font.Bold [/b]
  5.     End With
  6. End Sub