Menu & Text question [RESOLVED!]

[Madboy]

Ok, like in a text editor you can select bold etc from the menu. Thats ok, i can do that - im using RTF here is my code:

Private Sub mnuFormatBold_Click()
On Error Resume Next
'Bolden text
mnuFormatBold.Checked = Not mnuFormatBold.Checked
txtMain.SelBold = mnuFormatBold.Checked
txtMain.SelStart = Len(txtMain.Text)
End Sub

Anyway i want to be able to click on a piece of text and determine if the selected text is say bold or not. So if the highlighted text is bold, the menu is checked, otherwise it isnt. This is so the user can view the selected text and see what has been formatted from the menu. If you know what i mean. I tried something like;

If txtMain.Sel = (i tried adding true, but obviously it needs text).

So any ideas are highly appreciated.

THANKS!

[Madboy]

***BUMP***

[dis1411]

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    mnuBold.Checked = RichTextBox1.SelBold
End Sub

[Madboy]

Thanks, even though the code goes in the Text box routine, like so:

Private Sub txtMain_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
mnuFormatBold.Checked = txtMain.SelBold
End Sub

Thanks anyway for the code

[dis1411]

works either way, probly better to have it in form_mousemove tho

[Madboy]

Yeah, but that would only trigger the code if the mouse is moved over the form. Which is bad considering the textbox covers all the form. Apart from the caption bar!