Imports System.Resources Public Function GetString(ByVal Key As String) As String Const NAME_SPACE As String = "GSDN.Common" Dim resourceMgrIns As ResourceManager Dim value As String resourceMgrIns = New ResourceManager( _ NAME_SPACE & ".Resources",_ GetType(My.Resources.Resources).Assembly) value = resourceMgrIns.GetString(Key) Return value End Function
