Lihat nama komputer

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Function GetWinComputerName() As String
Dim sBuffer As String
Dim lBufSize As Long
Dim lStatus As Long
lBufSize = 255
sBuffer = String$(lBufSize, " ")
lStatus = GetComputerName(sBuffer, lBufSize)
GetWinComputerName = ""
If lStatus <> 0 Then
GetWinComputerName = Left(sBuffer, lBufSize)
End If

End Function

--------------
Di coding form :
Label1.Caption = "Nama Komputer ini : " & GetWinComputerName