Public Class uscntr_INFO
    Private Sub uscntr_INFO_Load(sender As Object, e As EventArgs) Handles Me.Load
        Dim ben As cBenutzer = Class1.LoggedOnUser
        lblText.Text = ben.BenutzeranmeldeName & vbCrLf &
                                ben.Vorname & " " & ben.Nachname & vbCrLf &
                                ben.Mail & vbCrLf &
                                ben.Domäne & vbCrLf &
                                ben.distinguishedName & vbCrLf &
                                  vbCrLf &
                                  Class1.DebugText
    End Sub
End Class