Ok, try this:
Make a project with 2 forms, form1 and form2.
On Form1 you have all your buttons in a control array so that you have Command1(0) to Command1(29)
Set all your images to all your Command1().Picture properties (either at design time manually or at runtime with automation).
On form2 you have 1 image in a crontrol array, Image1(0)
Now
Form1 code=
VB Code:
Private Sub Command1_Click(Index As Integer) Form2.LoadNewImage (Index) End Sub
And Form2 Code =
VB Code:
Public Sub LoadNewImage(ByVal Index As Integer) Dim iCount As Integer iCount = Image1.Count Load Image1(iCount) Image1(iCount).Top = Image1(iCount - 1).Top + Image1(iCount - 1).Height + 100 Image1(iCount).Left = Image1(iCount - 1).Left Image1(iCount).Picture = Form1.Command1(Index).Picture Image1(iCount).Visible = True End Sub




Reply With Quote