Hi Death,

You can use this set of commands.

----------------------

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal rsBuffer As String, rlSize As Long) As Long

Option Explicit

Private Sub Form_Load()
Dim dsBuffer As String
Dim dlSize As Long

dsBuffer = Space$(255)
dlSize = Len(dsBuffer)
Call GetUserName(dsBuffer, dlSize)

If (dlSize > 0) Then
Me.txtUserID.Text = Left$(dsBuffer, dlSize)
Else
Me.txtUserID.Text = vbNullString
End If

End Sub


-------------

Does it help ?

Regards