Public Sub New()
 
        My.Application.ChangeUICulture("de")
        My.Application.ChangeCulture("de-DE")
        InitializeComponent()
 
    End Sub

 Public Sub New()
 
        My.Application.ChangeUICulture(lblShowUICulture.Text)
        My.Application.ChangeCulture(lblShowCulture.Text)
        InitializeComponent()
 
    End Sub

 Private Sub Testlogin_Click(sender As System.Object, e As System.EventArgs) _
   Handles Testlogin.Click
 
        frmMain.Show()
        Me.Hide()
 
    End Sub