Visual Basic - Nombre de usuario Xp

Hola aun no he podido hacer que a un text box se le asigne el nombre de usuario de windows... si alguien me puede ayudar se lo agradecere demaciado..

gracias a todos...

Bueno esta ya la pobre y funciona bien ojala te sirva.

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

Const clngBuffSize As Long = 25
Dim lngCharsReturned As Long
strName = String$(clngBuffSize + 1, "A")
lngCharsReturned = clngBuffSize
lngAPI = GetUserName(strName, lngCharsReturned)
If lngAPI = 0 Then
strName = "Desconocido"
Else
strName = Left(strName, lngCharsReturned - 1)
End If

Bueno esta ya la pobre y funciona bien ojala te sirva.

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

Const clngBuffSize As Long = 25
Dim lngCharsReturned As Long
strName = String$(clngBuffSize + 1, "A")
lngCharsReturned = clngBuffSize
lngAPI = GetUserName(strName, lngCharsReturned)
If lngAPI = 0 Then
strName = "Desconocido"
Else
strName = Left(strName, lngCharsReturned - 1)
End If

text1.text = strname