Creating a mtext dialog box to place text

Hello,
I want to add the ability to underline my mtext in a my custom mtext
editor...why doesnt the code below work?

Private Sub tbUline_Click()
If tbUline.Enabled = True Then
tbMtxt.Font.Underline = True
Else
tbMtxt.Font.Underline = False
End If
End Sub

By default underline is off. If you click the underline toggle (toggle on)
it underlines the text in the textbox. If you then click the underline
toggle again (toggle off) it continues to underline. When debugging the
click it shows "tbUline.Enabled = True" in both cases, toggled up or down.
Am I using .Enabled incorrectly?

acad 2000i
winXP

Thanks in advance,
Eugene

 

..Enabled means a control is not greyed out and inactive

 

well, more exactly, means a control is not inactive - it can be checked or
unchecked or data entered in it...depending on the control of course

usually one will 'grey out' an inactive control to indicate to the user that
it is not .Enabled

 

Thanks for the reply MP. So how do I check to see if it is toggled on or
off?

 

Sorry...I'm alittle slow ........ .Value does the trick.