Sub SpracheUmschalten(ByVal Sprache As Integer)
        Select Case Sprache
            Case 1
                My.Application.ChangeUICulture("en")
            Case 0
                My.Application.ChangeUICulture("de")
        End Select
    End Sub

mein aktuelles .net-Projekt:
http://www.fiman.de
freue mich über Test-Informationen.

Screenshots gibt es hier: http://www.fiman.de