Public Class usrCntlWelcome

    Dim MAIN As frmCheckIn
    Sub New(MAIN)

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()
        Me.MAIN = MAIN
        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.

    End Sub


    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click, Label1.Click, Button1.Click, Label2.Click, Button2.Click, Label3.Click, Button3.Click, Label4.Click
        MAIN.SET_LANGUAGE(sender.tag)
        MAIN.SET_SEARCH()
    End Sub

    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    End Sub
End Class