Trabajar con Multilenguaje interno de VB.NET

Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
''español
Dim l As New CultureInfo("es", True)
Dim resources As ComponentResourceManager = New ComponentResourceManager(Me.GetType)
For Each c As Control In Me.Controls
resources.ApplyResources(c, c.Name, l)
Next c
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
''ingles
Dim l As New CultureInfo("en", True)
Dim resources As ComponentResourceManager = New ComponentResourceManager(Me.GetType)
For Each c As Control In Me.Controls
resources.ApplyResources(c, c.Name, l)
Next c
End Sub
End Class

Accede a 'Propiedades de proyecto' en el menú 'PROYECTO' y selecciona Recursos

Selecciona 'Cadenas'

En la columna 'Nombre', en la primera fila pones 'Button1_Spanish' y en Valor pones 'Examinar'

En la columna Nombre, en la segunda fila pones 'Button2_English' yen Valor pones "Browse'

Ahora para obtener la cadena pones:

Código

    Button1.Text = My.Resources.Button1_English

Código

    Button1.Text = My.Resources.Button1_Spanish

También puedes acceder a los recursos desde el Explorador de soluciones.

haz clic en 'Mostrar todos los archivos'

Abre 'MyProyect'

Haz doble clic en Resources.resx

Para crear recursos desde código

Recursos de cadenas/Crear recursos mediante código

EJEMPLO
Crea cadenas en el recurso en tiempo de ejecución.

Código

Imports System
Imports System.Collections
Imports System.Resources
 
Public Class Form1
    Public Sub New()
        'Añade cadenas al registro en tiempo de ejecución
        MyClass.InitializeComponent()
        ' First create the resource file and add strings.
        Dim rw As ResourceWriter = New ResourceWriter("sample.resources")
        rw.AddResource("4564", "Examinar")
        rw.AddResource("4565", "Browse")
        rw.AddResource("Title_Form2", "Diálogo")
        rw.Close()
    End Sub
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'Obtiene las cadenas del registro
        Dim rr As ResourceReader = New ResourceReader("sample.resources")
        Dim de As IDictionaryEnumerator = rr.GetEnumerator()
        'Obtiene las cadenas en orden de enumeración
        While de.MoveNext
            Select Case de.Key.ToString
                Case "4564" : MessageBox.Show(de.Value.ToString)
                Case "4565" : MessageBox.Show(de.Value.ToString)
            End Select
        End While
        rr.Close()
 
        'Abre el form2
        Form2.ShowDialog()
    End Sub
End Class
Public NotInheritable Class Form2 : Inherits Form
 
    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim rr As ResourceReader = New ResourceReader("sample.resources")
        Dim de As IDictionaryEnumerator = rr.GetEnumerator()
        'Obtiene la cadena para el título del formulario 2
        While de.MoveNext
            Select Case de.Key.ToString
                Case "Title_Form2" : Me.Text = de.Value.ToString
            End Select
        End While
        rr.Close()
    End Sub
End Class