Private Sub Form_Load()
Text1.Text = "我们不在起义了杂饿么还呢吧时个毫 敌后 风景画法"
End Sub
Private Sub Option1_Click()
If Option1.Value = True Then
 Toolbar1.Style = tbrFlat
 Toolbar1.TextAlignment = tbrTextAlignRight
 End If
End Sub
Private Sub Option2_Click()
If Option1.Value = True Then
 Toolbar1.Style = tbrStandard
 Toolbar1.TextAlignment = tbrTextAlignBottom
  End If
End Sub
Private Sub Option3_Click()
If Option1.Value = True Then
 Toolbar1.Style = tbrStandard
 Toolbar1.TextAlignment = tbrTextAlignRight
 Toolbar1.BorderStyle = ccFixedSingle
 End If
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
 Case 1
  If Button.Value = tbrPressed Then
   Text1.FontBold = True
   Else
   Text1.FontBold = False
   End If
 Case 2
  If Button.Value = tbrPressed Then
   Text1.FontItalic = True
   Else
   Text1.FontItalic = False
   End If
Case 3
 If Button.Value = tbrPressed Then
  Text1.FontUnderline = True
  Else
  Text1.FontUnderline = False
  End If
Case 4
 If Button.Value = tbrPressed Then
  Text1.FontStrikethru = True
  Else
   Text1.FontStrikethru = False
   End If
 End Select
 End Sub
我做的一个toolbar工具栏的练习，但是value属性好象不起作用，不同。button.value，请大侠看看哪里出问题了

确定啊，就只有两个值，tbrPressed和tbrUnpressed ，但就是不起作用，