Public Property MyResourceManager() As ResourceManager
        Get
            If Not m_ResourceManagerInitialized Then
                Dim assemblyName As String
                Dim executingAssembly As System.Reflection.Assembly
                Dim i As Integer
                Dim baseName As String
 
                executingAssembly = _
                  System.Reflection.Assembly.GetExecutingAssembly()
                assemblyName = executingAssembly.FullName
                i = assemblyName.IndexOf(",")
 
                If (i >= 0) Then
                    assemblyName = assemblyName.Substring(0, i).Trim()
                Else
                    assemblyName = "MeinProjektmappenname"
                End If
 
                baseName = assemblyName & ".MeinProjektmappenname"
                m_ResourceManagerInitialized = True
                m_MyResourceManager = New ResourceManager(baseName, _
                  executingAssembly)
            End If
            Return m_MyResourceManager 
        End Get
        Set(ByVal Value As ResourceManager)
            m_MyResourceManager = Value
            m_ResourceManagerInitialized = True
        End Set
    End Property