I want to make a program like this 'see one of this two links'..https://ufile.io/y1qm9 or this https://ibb.co/jGobgm
The program for children ,combines two numbers with a combined output show in the form of a number of apples.
but I can't loop on imagelist , this is the code/;

Private Sub Command1_Click()
ListView1.View = lvwIcon
Dim i, x, y As Integer
x = CInt(Text1.Text) + CInt(Text2.Text)

For y = 1 To x
ImageList1.ListImages.Add , "s" & y, LoadPicture("C:\Users\pc1\Desktop\2911 copy.jpg")
Next y
For i = 1 To x
ListView1.ListItems.Add , "M" & i, "Apple" & i, i
Next i
End Sub

the error code :
ImageList must be intialized it can be used.