Labels:dialog box | monitor | web site | window OCR: Private Sub mnuBold Click (ByVal sender AS Object BvVal Svstem Event Hand les mnuBold G1i cmnuBold Click mnuBold Checked mnuBold Chec ked False cmnuBo ld Chec ked cmnuBo ld Checked False Dim currentFont Svstem. Drawing Font txtEditor Select ionFont Dim newFontStyle AS System. Drawing FontSt txtEdi tor Select ionF ont Bold True Then newFontStyle FontStvle Regular Else newFontStyle FontStvle Bold End txtEditor Se. lect ionFont Font currentFont FontF ami 1v cur rent Font Size newFontStvle End Sub Ohject mnuBo Family