Public Class Form1
    `Deklarationsteil des Hauptformulars 
 
    'Klasse für Settingvariable
    Public Class cSettings
        'Member für Settingvariable   
        Private _SetVar1 As String
 
        'Abfrage der _SetVar1
        Public ReadOnly Property SetVar1() As String
            Get
                Return _SetVar1
            End Get
        End Property
 
        'Prozedur zum Lesen der Setting-Einstellungen
        Friend Sub ReadSettings()
            'Settings lesen
            _SetVar1 = "gelesene SetVar"
        End Sub
    End Class
 
    'Variable für Verweis auf Instanz der Settingklasse  
    Private _mysettings As cSettings
 
    'öffentliche Formular-Eigenschaft zur Abfrage der Settings
    Public ReadOnly Property MySettings() As cSettings
        Get
            Return _mysettings
        End Get
    End Property
 
 
 'In der Form_Load-Ereignisroutine des Hauptformulars:
 
    'Erstellung einer Instanz für die Settings
    _mysettings = New cSettings
    'Einlesen der Setting-Einstellungen (Klassenmethode)
    _mysettings.ReadSettings()
 
 
 'Abfrage einer Setting-Variable in jeder anderen Form
   Dim str As String = Form1.MySettings.SetVar1