VB Code:
  1. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

  2.     mnuBold.Checked = RichTextBox1.SelBold

  3. End Sub