For Each b As BarButton In Page1.ToolbarButtons
Dim no As NativeObject = b
Dim text As NativeObject = no.RunMethod("titleTextAttributesForState:", Array(0))
If text.IsInitialized Then
no.RunMethod("setTitleTextAttributes:forState:", Array(text, 0x2))
End If
Next