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
    lvwSpecial.View = View.Details
    lvwSpecial.Columns.Add("Special Folder", 140, _
          HorizontalAlignment.Left)
    lvwSpecial.Columns.Add("Pfad", 700, HorizontalAlignment.Left)
    FillSpecialFolders()
  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 FillSpecialFolders()
    Dim sFolders() As String
    Dim iValues() As Integer
    Dim i As Integer

    sFolders = System.Enum.GetNames( _
          GetType(Environment.SpecialFolder))
    iValues = System.Enum.GetValues( _
          GetType(Environment.SpecialFolder))

    For i = 0 To sFolders.Length - 1
      AddItems(lvwSpecial, sFolders(i), _
            oEnv.GetFolderPath(iValues(i)))
    Next
  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