Attribute VB_Name = "NamePC"

Public Const MAX_COMPUTERNAME_LENGTH As Long = 31

Public Declare Function GetComputerName _
               Lib "KERNEL32" _
               Alias "GetComputerNameA" (ByVal lpBuffer As String, _
                                         nSize As Long) As Long

