فرض کنيد بخواهيم فرمی شامل يک Text Box و دو Check Box با عنوانهای Bold و Italic داشته باشيم که اگر Bold، مارک خورده بود، متن داخل Text Box به صورت Bold درآيد و اگر Italic مارک خورده بود به صورت Italicفرم نهايی آن را در شکل 6 می توانيد ببينيد.
Private Sub chkBold_Click ()
IF chkBold.Value = VBchecked Then
txtDisplay.FontBold = True
Else
txtDisplay.FontBold = False
End IF
End Sub
Private Sub chkItalic_Click ()
IF chkItalic.Value = VBchecked Then
txtDisplay.FontItalic = True
Else
txtDisplay.FontItalic = False
End IF
End Sub
توجه داشته باشيم که هرگاه کاربر بر روی يک Check Box و يا يک Option Button کليک کند و يا بوسيله کليد Tab ، فوکوس را به آن دهد و روی آن کليد Space bar را بزند، رويداد Click از اين دو کنترل روی خواهد داد.