Something

Imports Microsoft.VisualBasic
Imports System.Data
Imports System.Data.SqlClient

Public Class LanguageManager

    Private langTable As Hashtable

    Public Sub New(ByVal networkId As Int32)
        langTable = New Hashtable()
        langTable.Add("app_networkid", networkId)
        loadLanguageData(networkId)
    End Sub

    Private Sub loadLanguageData(ByVal networkId As Int32)
        'Loads the Data from Database and populate the Hashtable
    End Sub

    Public Sub reloadLanguageData(ByVal networkId As Int32)
        langTable.Clear()
        loadLanguageData(networkId)
    End Sub

    Public Function getString(ByVal val As String) As String
        If (langTable.ContainsKey(val) = False) Then
            Return "Language Resource Not Found"
        End If

        Return langTable.Item("val")
    End Function
End Class