Private Sub DisplayIcons() 
  Dim sIconKey, sIconName As String 
  
  IconView1.Clear() 
  For Each sIconKey In Stock.List 
    sIconName = "icon:/16/" & sIconKey 
    IconView1.Add(sIconKey, sIconKey, Picture[sIconName]) 
  Next ' sIconKey 
End ' DisplayIcons() 

Public Sub btnDisplayIcons_Click() 
  DisplayIcons() 
End ' btnDisplayIcons