请大家帮我解释一下这段代码（VB）

FontUnderline 删除线，以后建议用true 和false

Private Sub thru_Click() [开始thru点击事件，如果点击则会发生]
If thru.Value = 1 Then [开始判断 如果thru 选择框被选中 那么]
display.FontStrikethru = -1 [display则有删除线]
Else [如果 不是 thru选择框被选中]
display.FontStrikethru = 0 [display 则没有删除线]
End If [结束判断]
End Sub [结束点击事件]

Private Sub underon_Click() [开始underon点击事件，如果点击则会发生]
If underon.Value = 1 Then [开始判断 如果underon 选择框被选中 那么]
display.FontUnderline = -1 [display则有下划线]
Else [如果 不是 underon 选择框被选中]
display.FontUnderline = 0 [display 则没有下划线]
End If [结束判断]
End Sub [结束点击事件]

简述：就是一个form 有两个checkbox [选择框]，一个叫THRU 另一个叫UNDERON，还有一个label里面有一些文字，文字内容不详。
如果选中thru，那么label里面的文字就会有删除线，如果取消选择，则没有删除线。如果选中underon 那么会有下划线，如果取消选择，则没有下划线。
就这么简单。

你要别人回答你的问题,你最起码都要给悬赏分吧.天下间没有免费的午餐的!

这个问题太简单了，就是一个IF语句（判断），你自己找个VB书看一下就知道了。

百度知道有没按悬赏分的到底进行问题搜索的功能啊，有就好了，免得某些人误入无悬赏问题。
你这个问题也不好回答，关键是不知道你那些sub涉及到的控件到底是什么咚咚~

就是两个按钮，用来切换文本是否显示下划线和删除线<