Private Const MAX_COMPUTERNAME_LENGTH As Long =  31 

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" 
(ByVal lpBuffer As String, nSize As Long) As Long

Private Sub Form_Load()
    Dim dwLen As Long
    Dim strString As String
    'Create a buffer
    dwLen = MAX_COMPUTERNAME_LENGTH +  1 
    strString = String(dwLen, "X")
    'Get the computer name
    GetComputerName strString, dwLen
    'get only the actual data
    strString = Left(strString, dwLen)
    'Show the computer name
    MsgBox strString
End Sub

	Private Const MAX_COMPUTERNAME_LENGTH As Integer =  31 
	
	Private Declare Function GetComputerName Lib "kernel32"  Alias "GetComputerNameA"(ByVal lpBuffer As String, ByRef nSize As Integer) As Integer
	
	Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
		Dim dwLen As Integer
		Dim strString As String
		'Create a buffer
		dwLen = MAX_COMPUTERNAME_LENGTH +  1 
		strString = New String("X", dwLen)
		'Get the computer name
		GetComputerName(strString, dwLen)
		'get only the actual data
		strString = VB.Left(strString, dwLen)
		'Show the computer name
		MsgBox(strString)
	End Sub