Visual Basic - como saber el nombre de la pc

quiero saber mediante codigo el nombre de la pc que estoy trabajando por favor ayudenme

Fijate en:

http://www.mentalis.org/apilist/GetComputerName.shtml

http://www.mentalis.org/apilist/GetComputerNameEx.shtml

que tienes ejemplos.

***EN EL FORMULARIO QUE VAS A MOSTRAR EL NOMBRE
Dim sBuffer As String
Dim lSize As Long
LoadResStrings Me
sBuffer = Space$(255)
lSize = Len(sBuffer)
Call GetUserName(sBuffer, lSize)
'Creata una nueva instancia de la clase
Set clsCompName = New ComputerInfo
If lSize > 0 Then
'Mostrar el Nombre de la Computadora
sname = clsCompName.ComputerName
TextPCCliente.Text = sname
***EN EU MODULO
'Rutina que obtiene el Nombre de la Computadora del systema.
Public Function GetComputerName(ByVal PBuffer As String, PSize As Long) As String
Static PCName As String
Dim PlBuffLen As Long
Dim PsBuffer As String
Dim PlRet As Long

If Len(PCName) > 0 Then
GetComputerName = PCName
Exit Function
Else
PlBuffLen = 128
PsBuffer = String$(PlBuffLen, vbNullChar)
PlRet = GetComputerName(PsBuffer, PlBuffLen)
If PlRet < 0 Then
' Handle API error Here
Exit Function
End If
PsName = Left$(PsBuffer, PlBuffLen)
GetComputerName = PCName
End If
End Function
****************
SUERTE

Que diferencia tiene con la otra respuesta?????????????