AllSetings.Users.Add()
AllSetings.Users.Delete()
AllSetings.Computers.Add()
AllSetings.Computers.Delete()

Public Class mySettings
 
    Friend Users As myUsers
    Friend Computers As myComputers
 
    Sub New(myPath As String)
 
        Users = New myUsers(myPath)
        Computers = New myComputers(myPath)
 
    End Sub
 
    Friend Class myUsers
 
        Dim _Path As String
 
        Sub New(Path As String)
            _Path = Path
        End Sub
 
        Sub Add()
            Debug.WriteLine(_Path)
        End Sub
 
        Sub Delete()
            Debug.WriteLine(_Path)
        End Sub
 
    End Class
 
    Friend Class myComputers
 
        Dim _Path As String
 
        Sub New(Path As String)
            _Path = Path
        End Sub
 
        Sub Add()
            Debug.WriteLine(_Path)
        End Sub
 
        Sub Delete()
            Debug.WriteLine(_Path)
        End Sub
 
    End Class
 
End Class

Public Class App
    Sub Main()
        Dim AllSettings As New mySettings("C:\Temp\settings.xml")
        AllSettings.Computers.Add()
     End Sub
End Class