With Me.ToolStrip1
  For Each Item As ToolStripButton In .Items
    If Item.Name = "ToolStripButton1" Then
      Item.Text = "neuer Text"
    End If
  Next
End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de