Immagini random nel load del forum

[Superpiedone]

Ciao ragazzi, questo è il primo post che faccio ma ho già una domanda.
Sto ricreando un gioco tipo scudetto(o almeno tentando, viste le mie conoscenze).In pratica nel modulo ho dichiarato una routine del genere:

Public Sub immaginegenerale()
casofigura = Int((4 - 1 + 1) * Rnd + 1)
Dim schermata As String
Select Case casofigura
Case 1
Set picture = LoadPicture(App.Path & "\ajax.BMP")
Set Form1.picture = LoadPicture(App.Path & "\ajax.BMP")
Case 2
Set picture = LoadPicture(App.Path & "\barcelon.BMP")
Set Form1.picture = LoadPicture(App.Path & "\barcelon.BMP")
Case 3
Set picture = LoadPicture(App.Path & "\england.BMP")
Set Form1.picture = LoadPicture(App.Path & "\england.BMP")
Case 4
Set picture = LoadPicture(App.Path & "\gen_1.BMP")
Set Form1.picture = LoadPicture(App.Path & "\gen_1.BMP")
End Select
End Sub



Ora io vorrei fare che la routine possa essere utilizzata a livello di più form, per questo infatti l'ho dichiarata nel modulo.
nel form 1:

private sub form_load()
immaginegenerale
end sub


Ovviamente, leggendo il codice del select case, si può notare
SET FORM1.picture dove quell'1 sta a indicare il primo form.Come potrei fare a rendere la routine comune a tutti i form quando nel select case mi chiede di identificare l'oggetto?ho provato con un ciclo for...next per fare in modo che inserisse l'immagine casuale in tutti i form in memoria centrale, ma senza riuscirci...


Suggerimenti? Ciao e grazie dal sedicenne forza viola!!!!

[AleX ZeTa]

prova con

For each f in Forms
set f.picture=LoadPicture("...")
next

[xegallo]

io la scriverei così

Public Sub immaginegenerale(Frm as form)
Dim schermata As String
Dim Picture as PictureBOX
   casofigura = Int((4 - 1 + 1) * Rnd + 1)
   Select Case casofigura
      Case 1
         Set picture = LoadPicture(App.Path & "\ajax.BMP")
      Case 2
         Set picture = LoadPicture(App.Path & "\barcelon.BMP")
      Case 3
         Set picture = LoadPicture(App.Path & "\england.BMP")
      Case 4
         Set picture = LoadPicture(App.Path & "\gen_1.BMP")
   End Select
   frm.PictureBox1.picture = picture.picture
End Sub

poi quando ti serve

    call immaginegenerale(me)

[Superpiedone]

Grazie ad entrambi, io ho provato il vostro codice ma non funziona.
Della struttura usata da Alex Ze Ta non ne ho capito la logica(non metto in dubbio il fatto che funzioni o no e ti ringrazio comunque, ma vorrei capirla prima di usarla).
Ehm, xegallo, ma non capisco in pratica per poter utilizzare il codice devo inserire un picturebox in ogni form? Precisamente l'errore è situato quando assegno nel set picture=loadpicture(...) un valore...l'errore è "Tipo non corrispondente"
Ehm scusate se le mie domande vi sembrano assurde ma faccio visualbasic a scuola da nemmeno un anno e praticamente sono autodidatta .
Grazie comunque ciao mi sa che dovrò richiedervi(immagino la vostra gioia spiegazioni ... )