My Computer Info

para obtener los siguientes datos en vb.net 2005 :

Información de la memoria del sistema ( AvailablePhysicalMemory, TotalPhysicalMemory, AvailableVirtualMemory, TotalVirtualMemory )

El nombre del sitema operativo y la versión ( OSFullName, OSPlatform y OSVersion )

Colocar un control Listview en el formulario

Option Explicit On

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object,ByVal e As System.EventArgs) _
Handles MyBase.Load


Try
' agrega dos encabezados
With ListView1
.Clear()
.Columns.Add(" Información ", 350, HorizontalAlignment.Left)
.Columns.Add(" Valor ", 200, HorizontalAlignment.Left)
.View = View.Details
End With
' agrega los items
With My.Computer.Info
' Referencia al item
Dim ObjItem As ListViewItem

' ram físca libre
'''''''''''''''''''''''''''''''''''''''
ObjItem = New ListViewItem("Memoria Física Disponible ")
ObjItem.SubItems.Add(((.AvailablePhysicalMemory) / 1048576) & " MB")
ListView1.Items.Add(ObjItem)

' Ram fisica total
'''''''''''''''''''''''''''''''''''''''
ObjItem = New ListViewItem("Memoria física total ")
ObjItem.SubItems.Add(((.TotalPhysicalMemory) / 1048576) & " MB")
ListView1.Items.Add(ObjItem)

' Ram Virtual libre
'''''''''''''''''''''''''''''''''''''''
ObjItem = New ListViewItem("Memoria Virtual libre")
ObjItem.SubItems.Add(((.AvailableVirtualMemory) / 1048576) & " MB")
ListView1.Items.Add(ObjItem)

' memoria virtual total
'''''''''''''''''''''''''''''''''''''''
ObjItem = New ListViewItem("Memoria virtual total")
ObjItem.SubItems.Add(((.TotalVirtualMemory) / 1048576) & " MB")
ListView1.Items.Add(ObjItem)

' Nombre del sistema operativo y la versión
''''''''''''''''''''''''''''''''''''''''''''''
ObjItem = New ListViewItem("Sistema operativo - plataforma - versión")
ObjItem.SubItems.Add(.OSFullName & "-" & .OSPlatform & "-" & .OSVersion).ToString()

ListView1.Items.Add(ObjItem)

' autoajusta los headers
ListView1.Columns(0).AutoResize(ColumnHeaderAutoResizeStyle.ColumnContent)
ListView1.Columns(1).AutoResize(ColumnHeaderAutoResizeStyle.ColumnContent)
ObjItem = Nothing
End With
' error
Catch omsg As Exception
MsgBox(omsg.Message, MsgBoxStyle.Critical)
End Try
End Sub
End Class