Visual Basic - Mostrar el pasword de usuario en visual basic

Hoal: Necesito saber si existe alguna manera de tomar el usuario de Windows y mostrar en pantalla por medio de Visual Basic.
Y de ser posible que me envien el codigo que lo hace o como hacerlo.
Saludos.
Muchas Gracias.

hola mira.. declara esto en un Modulo..

----------------------------------------------------------------------------------------------------
'API para obtener el usuario actual
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As Long

'Esta función devuelve el nombre del Usuario
Public Function UsuarioActual() As String
Dim sBuffer As String
Dim lSize As Long
Dim sUsuario As String

sBuffer = Space$(260)
lSize = Len(sBuffer)
Call GetUserName(sBuffer, lSize)
If lSize > 0 Then
sUsuario = Left$(sBuffer, lSize)
'Quitarle el CHR$(0) del final...
lSize = InStr(sUsuario, Chr$(0))
If lSize Then
sUsuario = Left$(sUsuario, lSize - 1)
End If
Else
sUsuario = ""
End If
UsuarioActual = sUsuario
End Function
----------------------------------------------------------------------------------------------------

y despues desde cualquier formulario prueba esto...
----------------------------------------------------------------------------------------------------

Private Sub Command1_Click()

MsgBox UsuarioActual

End Sub
----------------------------------------------------------------------------------------------------

..seguro que te sirve.. Saludos y responde si solucionas el problema.. para que tengas futuras respuestas..

HOla: No lo que yo necesito es el password o contraseña de Usuario; y para simplificar todo lo que escribiste te digo:

' Muestra el nombre de Usuario logeado en un sistema NT
txt1.text= environ("USERNAME")

saludos.