Sub New()
 
 My.Application.ChangeUICulture((My.Settings.Language) 'de oder en
  InitializeComponent()
end sub

 
SUB Changelang()
 
 If My.Settings.Language = "de" Then
            My.Settings.Language = "en"
        Else
            My.Settings.Language = "de"
        End If
        Application.Exit()
 
end sub