Class Language
    Private Shared rm As New ResourceManager("ProjektName.resLanguage", GetType( _
  frmMain).Assembly)
    Private Shared m_culture As CultureInfo
    Private Shared table As New Hashtable()
    
    Public Shared Sub UpdateLanuage()
        Dim cultureName As String = If((m_culture Is Nothing), String.Empty, _
  m_culture.Name)
        
        Select Case Properties.Settings.Default.Language
            Case 0 ' automatic
                If cultureName = CultureInfo.CurrentCulture.Name Then
                    Exit Sub
                Else
                    m_culture = CultureInfo.CurrentCulture
                End If
                Exit Select
            Case 1 ' english
            ' verschiedene sprachen
            ' ...
        End Select
        
        table.Clear()
        
        table.Add("abort", rm.GetString("abort", m_culture))
        table.Add("all", rm.GetString("all", m_culture))
        table.Add("alphabetical", rm.GetString("alphabetical", m_culture))
        table.Add("appearance_text", rm.GetString("appearance_text", m_culture))
        table.Add("apply", rm.GetString("apply", m_culture))
        table.Add("categories", rm.GetString("categories", m_culture))
        table.Add("category", rm.GetString("category", m_culture))
        ' ...
        ' sehr lange liste
 
    End Sub
    
    Public Shared Function GetTranslation(ByVal str As String) As String
        If table.ContainsKey(str) = True Then
            Return table(str).ToString()
        Else
            Return String.Empty
        End If
    End Function
    
    Public Shared ReadOnly Property Culture() As CultureInfo
        Get
            Return m_culture
        End Get
    End Property
End Class

---
Woher soll ich wissen, was ich denke, bevor ich h?re, was ich sage?