GetComputerName и GetSystemInfo: программа не показывает количество процессоров - Visual Basic .NET

Public Class Form1
 
    Private Property Infos As Integer
 
    Private Property dwNumberOfProcessors As Long
 
    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 Declare Sub GetSystemInfo Lib "kernel32" (ByRef lpSystemInfo As SYSTEM_INFO)
 
    Private Structure SYSTEM_INFO
        Public dwPageSize As UInteger
        Public lpMinimumApplicationAddress As Long
        Public lpMaximumApplicationAddress As Long
        Public dwActiveProcessorMask As Long
        Public dwNumberOfProcessors As Long
        Public dwProcessorType As Long
        Public dwAllocationGranularity As Long
        Public dwReserved As Long
    End Structure
    Private m_typSystemInfo As SYSTEM_INFO
    Public Function NumberOfProcessors() As Long
        GetSystemInfo(m_typSystemInfo)
        NumberOfProcessors = m_typSystemInfo.dwNumberOfProcessors
    End Function
 
    Private Sub Button1_Click(sender As Object, e As System.EventArgs) Handles Button1.Click
        MsgBox("имя компьютера " & ComputerName())
        Proc()
    End Sub
    Sub Proc()
        MsgBox("количество процессоров " & dwNumberOfProcessors())
 
    End Sub
 
End Class