ActiveUser = New UserData
        My.User.InitializeWithWindowsUser()
        ActiveUser.User = My.User.Name

Public Function Get_UserName() As String
Dim RetUserName As Long
Dim lpUserName As String
Dim nSize As Long
Dim RetLastError As Long
Dim Retval As Long
Dim lpMessageBuffer As String
Dim varia As String
 
lpUserName = Space(255)
nSize = Len(lpUserName)
RetUserName = GetUserName(lpUserName, nSize)
 
 
If RetUserName <> 0 Then 'UserName ausgeben.
    varia = Left(lpUserName, nSize - 1)
Else 'Username nicht verfügbar.
    RetLastError = GetLastError()
    lpMessageBuffer = Space(255)
    nSize = Len(lpMessageBuffer)
    Retval = FormatMessage(0, 0, RetLastError, 0, lpMessageBuffer, nSize, 0)
    If Retval <> 0 Then
        'varia = "Fehler " & RetLastError & ": " & lpMessageBuffer
    Else
        'varia = "Fehler " & RetLastError & ": kein angemeldeter Benutzer"
    End If
    varia = InputBox("Du hast Dich nicht angemeldet. Wenn Du Deinen Namen nicht" & _
      "eingibst, wird der Computer heruntergefahren ! Name: ", "Name eingeben", _
      "")
    If Trim$(varia) = "" Then
       ExitWindows EWX_LOGOFF, &HFFFF
    End If
End If
 
Get_UserName = Trim(varia)
 
End Function

Ciao

J?rgen

PS: geht nicht gibt's nicht