Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        PictureBox1.Show()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim count As System.Int32

        ' Thanks Microsoft ... http://msdn.microsoft.com/en-us/library/aa335208%28v=vs.71%29.aspx
        ' Get a Graphics object from the form's handle.
        Dim theGraphics As Graphics = Graphics.FromHwnd(Me.Handle)
        ImageList1.ImageSize = New Size(256, 256)

        ' Loop through the images in the list, drawing each image.
        For count = 0 To ImageList1.Images.Count - 1
            ImageList1.Draw(theGraphics, New Point(5, 35), count)

            ' Call Application.DoEvents to force a repaint of the form.
            Application.DoEvents()

            ' Call the Sleep method to allow the user to see the image.
            System.Threading.Thread.Sleep(1000)
        Next

    End Sub
End Class