Public Sub New() 
  MyBase.New() 
    System.Threading.Thread.CurrentThread.CurrentUICulture = New       _
      System.Globalization.CultureInfo("de-DE")
    System.Threading.Thread.CurrentThread.CurrentCulture = New _
    System.Globalization.CultureInfo("de-DE")
  InitializeComponent() 
End Sub