13 lines
584 B
VB.net
13 lines
584 B
VB.net
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
|