you have to use the win32 api to retrieve that info. Do you have any experience with the Windows API? If not I can recommend a book called Visual Basic 5.0 programmers guide to the Win32 API. You would need to set up a module with the getusername function. And call the function from your form with a button click event or other event of your choice. You can run the apiload.exe in your \devstudio\vb\winapi\ directory. This way you can view the necessaries of the getusername api. Need anymore clues post away...

pos

Try this declaration in the declarations sections of a module

Declare Function WNetGetUser Lib "advapi32.dll" Alias "GetUserNameA" (ByVal szUser$, lpnBufferSize%) As Long

and call it like this:

dim uname as string, len as integer
call GetUserNameA(uname,len)

uname should be set to the user name

Mike

Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Function ClipNull(InString As String) As String

Dim intpos As Integer

If Len(InString) Then
intpos = InStr(InString, vbNullChar)
If intpos > 0 Then
ClipNull = Left(InString, intpos - 1)
Else
ClipNull = InString
End If
End If

End Function
Function GetUser() As String

Dim lpUserID As String
Dim nBuffer As Long
Dim Ret As Long
lpUserID = String(25, 0)
nBuffer = 25
Ret = GetUserName(lpUserID, nBuffer)

If Ret Then
GetUser$ = lpUserID$
End If

End Function
'Call like this
dim strUser as string
strUser = ClipNull(GetUser())