Private Shared VarCLSProgrammInfos As cls_ProgrammInfos
 
    Public Shared ReadOnly Property CLSProgrammInfos() As cls_ProgrammInfos
        Get
            If VarCLSProgrammInfos Is Nothing Then VarCLSProgrammInfos = New _
              cls_ProgrammInfos
            Return VarCLSProgrammInfos
        End Get
    End Property

Jedes Programm,
in das sich ein Fehler einschleichen kann,wird auch einen enthalten.