Public Class Form1
  Inherits System.Windows.Forms.Form

Vom Windows Form Designer generierter Code

  Dim oEnv As System.Environment
  Dim oItem As ListViewItem

  Private Sub Form1_Load(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles MyBase.Load
    lvwSystem.View = View.Details
    lvwSystem.Columns.Add("Eigenschaft", 140, _
          HorizontalAlignment.Left)
    lvwSystem.Columns.Add("Werte", 700, HorizontalAlignment.Left)
    FillSystemEinstellungen()
  End Sub

  Private Sub AddItems(ByVal lvw As ListView, ByVal sProperty _
          As String, ByVal sValue As String)
    oItem = New ListViewItem(sProperty)
    oItem.SubItems.Add(sValue)
    lvw.Items.Add(oItem)
  End Sub

  Private Sub FillSystemEinstellungen()
    AddItems(lvwSystem, "OS Version", _
                        oEnv.OSVersion.Version.ToString)
    AddItems(lvwSystem, "CLR Version.Major", _
                        oEnv.Version.Major.ToString)
    AddItems(lvwSystem, "CLR Version.Minor", _
                        oEnv.Version.Minor.ToString)
    AddItems(lvwSystem, "CLR Version.Revision", _
                        oEnv.Version.Revision.ToString)
    AddItems(lvwSystem, "CLR Version.Build", _
                        oEnv.Version.Build.ToString)
    AddItems(lvwSystem, "OS Plattform", _
                        oEnv.OSVersion.Platform.ToString)
    AddItems(lvwSystem, "MachineName", oEnv.MachineName.ToString)
    AddItems(lvwSystem, "SystemDirectory", _
                        oEnv.SystemDirectory.ToString)
    AddItems(lvwSystem, "UserDomainName", _
                        oEnv.UserDomainName.ToString)
    AddItems(lvwSystem, "UserInteractive", _
                        oEnv.UserInteractive.ToString)
    AddItems(lvwSystem, "UserName", oEnv.UserName.ToString)
    AddItems(lvwSystem, "CurrentDirectory", _
                        oEnv.CurrentDirectory.ToString)
    AddItems(lvwSystem, "WorkingSet", oEnv.WorkingSet.ToString)
    AddItems(lvwSystem, "CommandLine", oEnv.CommandLine.ToString)
    AddItems(lvwSystem, "TickCount", oEnv.TickCount.ToString)
  End Sub

  Private Sub Button1_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button1.Click
    Me.Close()
  End Sub
End Class