Получить имя компьютера

Public Class Form1
   
    'узнать имя компьютера
   
   Private Declare Function GetComputerName Lib "kernel32" Alias _
  "GetComputerNameA" (ByVal lpBuffer As String) As Long
    Private Const MAX_COMPUTERNAME_LENGTH = 15
    Sub Demo_GetComputerName()
        Dim strBuffer As String
        Dim lngResult As Long
        lngResult = GetComputerName(strBuffer)
        If lngResult = 1 Then
            MsgBox(strBuffer)
        End If
    End Sub
 
End Class

MsgBox(My.Computer.Name)

MsgBox(My.Computer.Name)

   Private Declare Function GetComputerName Lib "kernel32" Alias _
"GetComputerNameA" (ByVal lpBuffer As String, ByRef nSize As Integer) As Integer
    Sub Demo_GetComputerName()
        Dim strBuffer As New String(" ", 250)
        Dim lngResult As Integer
        lngResult = GetComputerName(strBuffer, 250)
        If lngResult = 1 Then
            MsgBox(Trim(strBuffer))
        End If
    End Sub

Public Class Form1
 
    Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, ByRef nSize As Long) As Long
    Public Function ComputerName() As String
        Dim strBuffer As String
        Dim strAns As Long
 
        strBuffer = Space(255)
        strAns = GetComputerName(strBuffer, 255)
        ComputerName = strBuffer
    End Function
 
    Private Sub Button1_Click(sender As Object, e As System.EventArgs) Handles Button1.Click
        TextBox1.text = ComputerName()
    End Sub
End Class

Textbox1.Text = My.Computer.Name