here is what I have done 
VB Code:
Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
' in a form
Dim StrReturn As String
Dim lBuffer As Long
Dim LReturn As Long
Dim Length As Integer
On Error GoTo checkerror
If deploytype = "3" Then
frmDesktop.Label6.Caption = User
Exit Sub
End If
lBuffer = 199
StrReturn = String$(200, 0)
LReturn = GetUserName(StrReturn, lBuffer)
If LReturn <> 0 Then CurUser = Left$(StrReturn, lBuffer) Else CurUser = ""
Length = Len(CurUser)
Length = Length - 1
User = Left$(CurUser, Length)
frmDesktop.Label6.Caption = User
Exit Sub