<ListBox Name="lstItems" Margin="12" >
            <ListBox.ItemsPanel>
                <ItemsPanelTemplate>
                    <StackPanel Orientation="Horizontal" IsItemsHost="True" />
                </ItemsPanelTemplate>
            </ListBox.ItemsPanel>
            <ListBox.ItemTemplate>
                <DataTemplate>
                    <Image Width="40" Height="40" Source="{Binding}" _
                      Margin="15,0" />
                </DataTemplate>
            </ListBox.ItemTemplate>
        </ListBox>

    Private Sub Window1_Loaded(ByVal sender As System.Object, ByVal e As _
      System.Windows.RoutedEventArgs) Handles MyBase.Loaded
        Dim dir As New IO.DirectoryInfo("p:\ath")
        Dim files = dir.GetFiles("*.png", IO.SearchOption.TopDirectoryOnly)
        lstItems.ItemsSource = From f In files Select New BitmapImage(New Uri( _
          f.FullName))
    End Sub