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，请大侠看看哪里出问题了

button.value
你看一下这个属性取值是什么？
是 true 还是 0 1 2

你确定你放上去的Button是按下和不按下两种状态的吧……

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

Private Sub tbToolBar_ButtonClick(ByVal Button As MSComCtlLib.Button)
    On Error Resume Next
    Select Case Button.Key
        Case "新建"
            LoadNewDoc
        Case "打开"
            mnuFileOpen_Click
        Case "保存"
            mnuFileSave_Click
        Case "打印"
            mnuFilePrint_Click
        Case "剪切"
            mnuEditCut_Click
        Case "复制"
            mnuEditCopy_Click
        Case "粘贴"
            mnuEditPaste_Click
        Case "粗体"
            ActiveForm.rtfText.SelBold = Not ActiveForm.rtfText.SelBold
            Button.Value = IIf(ActiveForm.rtfText.SelBold, tbrPressed, tbrUnpressed)
        Case "斜体"
            ActiveForm.rtfText.SelItalic = Not ActiveForm.rtfText.SelItalic
            Button.Value = IIf(ActiveForm.rtfText.SelItalic, tbrPressed, tbrUnpressed)
        Case "下划线"
            ActiveForm.rtfText.SelUnderline = Not ActiveForm.rtfText.SelUnderline
            Button.Value = IIf(ActiveForm.rtfText.SelUnderline, tbrPressed, tbrUnpressed)
        Case "左对齐"
            ActiveForm.rtfText.SelAlignment = rtfLeft
        Case "置中"
            ActiveForm.rtfText.SelAlignment = rtfCenter
        Case "右对齐"
            ActiveForm.rtfText.SelAlignment = rtfRight
    End Select
End Sub


这是向导自动生成 的 工具栏按钮的代码，你参考一下。
学VB时，记得要把 应用程序向导生成的程序都看一遍。
工具栏，不推荐用 index 来索引每个按钮，如果工具进行修改，那这个按钮程序又要全面重写。