¿Cómo obtiene VB el tamaño de la memoria física de la computadora?

Opción Privado Explícito Declarar Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS) 'Llamar a la función API Tipo Privado MEMORYSTATUS 'Tipo personalizado

dwLength As Long

dwMemoryLoad As Long

dwTotalPhys mientras dure

dwAvailPhys mientras dure

dwTotalPageFile mientras dure

dwAvailPageFile mientras dure

dwTotalVirtual mientras dure

dwAvailVirtual As Long

Tipo final

Memoria privada As MEMORYSTATUS 'Definición de variable Private Sub Command1_Click()

Llamada a GlobalMemoryStatus(mem) 'Obtener información de la memoria

Text1.Text = "Tamaño de memoria física:" amp; CLng(mem.dwTotalPhys / 1024/1024) amp "MB" 'Se muestra en el texto controlEnd Sub