Private Sub Form_Load()
With List1
.AddItem "Desktop"
.ItemData(List1.ListCount - 1) = CSIDL_DESKTOP
.AddItem "Programs"
.ItemData(List1.ListCount - 1) = CSIDL_PROGRAMS
.AddItem "Controls"
.ItemData(List1.ListCount - 1) = CSIDL_CONTROLS
.AddItem "Printers"
.ItemData(List1.ListCount - 1) = CSIDL_PRINTERS
.AddItem "Personal"
.ItemData(List1.ListCount - 1) = CSIDL_PERSONAL
.AddItem "Favorites"
.ItemData(List1.ListCount - 1) = CSIDL_FAVORITES
.AddItem "StartUp"
.ItemData(List1.ListCount - 1) = CSIDL_STARTUP
.AddItem "Recent"
.ItemData(List1.ListCount - 1) = CSIDL_RECENT
.AddItem "SendTo"
.ItemData(List1.ListCount - 1) = CSIDL_SENDTO
.AddItem "BitBucket"
.ItemData(List1.ListCount - 1) = CSIDL_BITBUCKET
.AddItem "StartMenu"
.ItemData(List1.ListCount - 1) = CSIDL_STARTMENU
.AddItem "DesktopDiretory"
.ItemData(List1.ListCount - 1) = CSIDL_DESKTOPDIRECTORY
.AddItem "Drives"
.ItemData(List1.ListCount - 1) = CSIDL_DRIVES
.AddItem "Network"
.ItemData(List1.ListCount - 1) = CSIDL_NETWORK
.AddItem "NetHood"
.ItemData(List1.ListCount - 1) = CSIDL_NETHOOD
.AddItem "Fonts"
.ItemData(List1.ListCount - 1) = CSIDL_FONTS
.AddItem "Templates"
.ItemData(List1.ListCount - 1) = CSIDL_TEMPLATES
.AddItem "CommonStartMenu"
.ItemData(List1.ListCount - 1) = CSIDL_COMMON_STARTMENU
.AddItem "CommonPrograms"
.ItemData(List1.ListCount - 1) = CSIDL_COMMON_PROGRAMS
.AddItem "CommonStartUp"
.ItemData(List1.ListCount - 1) = CSIDL_COMMON_STARTUP
.AddItem "DesktopDirectory"
.ItemData(List1.ListCount - 1) = CSIDL_COMMON_DESKTOPDIRECTORY
.AddItem "AppData"
.ItemData(List1.ListCount - 1) = CSIDL_APPDATA
.AddItem "PrintHood"
.ItemData(List1.ListCount - 1) = CSIDL_PRINTHOOD
End With
End Sub

Private Sub List1_Click()
'Klicka på en artikel i listboxen så kommer sökvägen att returneras
'för den speciella systemfoldern
Text1.Text = GetSpecialFolderPath(List1.ItemData(List1.ListIndex))
End Sub