TestGUI: Add Localizer Tests for LookupControl

GUIs.Test.TestGUI/frmLookup.vb

@@ -1,10 +1,23 @@
-Imports DigitalData.Controls.LookupGrid
+Imports System.Globalization
+Imports DevExpress.XtraEditors.Controls
+Imports DigitalData.Controls.LookupGrid
 
 Public Class frmLookup
 
     Private _Datasource As List(Of String) = New List(Of String) From {"Foo", "Bar", "Baz", "Bart", "Maggie", "Homer"}
 
+    Public Sub New()
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+        Localizer.Active = New LookupGridLocalizer()
+    End Sub
+
     Private Sub frmLookup_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Dim oCulture = CultureInfo.CurrentCulture
+        Dim oUICulture = CultureInfo.CurrentUICulture
+
         Dim oTable = GetDatatable(10)
 
         Dim LookupControl31 As New LookupControl3 With {