Mauro, Try this:


Private Sub UserForm_initialize()
Dim myMax%, myMin%, myImageNumber%
Dim myImage$
'Use whatever min or max values you want
myMax = 5
myMin = 1
myImageNumber = Round(Rnd * (myMax - myMin) * myMin + 1)
'Be sure to change the directory to where your images are


myImage = "D:\macros\Images\" & myImageNumber & ".gif"
Image1.Picture = LoadPicture(myImage)
End Sub

Regards, Lonnie M.