This program uses the SaveToolbar and RestoreToolbar subroutines shown in the following code to save and restore the ToolBar buttons' Visible property values in the Registry. The main program should call these methods in its Closing and Load event handlers.

The SaveToolbar subroutine loops through the ToolBar's buttons, using SaveSetting to save their Visible values in the Registry.

RestoreToolbar again loops through the ToolBar's buttons, this time using GetSetting to read their Visible values from the Registry.

' Save the ToolBar's Button's Visible properties.
Public Sub SaveToolbar(ByVal client_toolbar As ToolBar, _
    ByVal app_name As String)
    ' Save each button's Visible value.
    For i As Integer = 0 To client_toolbar.Buttons.Count - 1
        SaveSetting(app_name, "ToolBarSettings", _
            i.ToString, _
                client_toolbar.Buttons(i).Visible.ToString)
    Next i
End Sub

' Restore the ToolBar's Button's Visible properties.
Public Sub RestoreToolbar(ByVal client_toolbar As ToolBar, _
    ByVal app_name As String)
    ' Restore each button's Visible value.
    For i As Integer = 0 To client_toolbar.Buttons.Count - 1
        ' See if this button's Visible value is true.
        ' Note that we use the current value as 
        ' defined by the program at design time
        ' as the default.
        If CBool(GetSetting(app_name, "ToolBarSettings", _
            i.ToString, _
                client_toolbar.Buttons(i).Visible.ToString)) _
                _
        Then
            client_toolbar.Buttons(i).Visible = True
        Else
            client_toolbar.Buttons(i).Visible = False
        End If
    Next i
End Sub