Schöne Routine - passt zum Kapitel 17.6
------------------------------------------------------

 Private Sub DisplayIcons()
  Dim iconKey As String
  Dim iconName As String
  
  IconView1.Clear()
  For Each iconKey In Stock.List
    Print iconKey
    iconName = "icon:/128/" & iconKey
    IconView1.Add(iconKey, iconKey, Picture[iconName])
  Next
End

Public Sub Button1_Click()
  DisplayIcons()
End