Ja bih to ovako uradio:
Deklarišeš array promenljivih tipa String u koji ćeš staviti adrese slika, npr. za 5 slika:
Code:
Dim AdresaSlike(4) As String
Trebaće ti i jedan brojač (ako hoćeš da prikazuješ slike nekim određenim redosledom):
Code:
Dim Brojac As Integer
U Form_Load npr. dodeliš lokacije slika odgovarajućim promenljivama:
Code:
AdresaSlike(0) = "C:\Slika1"
AdresaSlike(1) = "C:\Slika2"
itd...
Brojac = 0
I onda u _Click događaj Commad1 dugmeta staviš:
Ako hoćeš da se pojavljuju redom:
Code:
Picture1.Picture = LoadPicture(AdresaSlike(Brojac))
If Brojac < 4 Then
Brojac = Brojac + 1
Else
Brojac = 0
EndIf
Ako hoćeš da se pojavljuju nasumice (u ovom slučaju ti ne treba promenljiva Brojac):
Code:
Randomize
Picture1.Picture = LoadPicture(AdresaSlike(Int(5 * Rnd)))
Sve ovo je za 5 slika, za različit broj slika samo zamenuti brojeve na odgovarajući način.