Newbie of a question

[Newer_Newbie]

Private Sub ChkBold_Click()

If lblMessages.FontBold = False Then
lblMessages.FontBold = False
Else
lblMessages.FontBold = True
End If

End Sub

how do i make that work, when the checkbox isnt click it goes back to default and when its click it makes the words bold and when its unchecked it makes them normal......

thanks

[McGenius]

Private Sub Check1_Click()
    Label1.FontBold = CBool(Check1.Value)
End Sub

[radum]

Private Sub ChkBold_Click() 
 
lblMessages.FontBold = ChkBold.Value = vbChecked
 
End Sub

what you wrote there is a truism...

[Newer_Newbie]

thanks a lot guys that did the trick.

now for option boxes would i do the same think just change the names?

actually nevermind that because option boxes dont have the same proptery as checkboxes.

but still how would i make the little dot dissappeared after i clear the thingy