Mudar o fundo do form

[LukasMoraes 0]

Estou tentando mudar o fundo do form todas vez que abrir... ta certo isso?

 

Private Sub MDIForm_Activate()imagens(1) = ("imagens\fundo1.jpg")imagens(2) = ("imagens\fundo2.jpg")imagens(3) = ("imagens\fundo3.jpg")imagens(4) = ("imagens\fundo4.jpg")imagens(5) = ("imagens\fundo5.jpg")imagens(6) = ("imagens\fundo6.jpg")imagens(7) = ("imagens\fundo7.jpg")imagens(8) = ("imagens\fundo8.jpg")imagens(9) = ("imagens\fundo9.jpg")Me.Picture = LoadPicture(imagens(Int(Rnd * UBound(imagens))))End Sub

[Fabyo 66]

faz assim:

 

Randomize

 

Me.Picture = LoadPicture(App.Path & "\" & imagens(Int(Rnd(9) * UBound(imagens))))

 

coloquei o app.path que indica o path das imagens apartir da raiz do executavel

[LukasMoraes 0]

faz assim:Me.Picture = LoadPicture(App.Path & "\" & imagens(Int(Rnd * UBound(imagens))))coloquei o app.path que indica o path das imagens apartir da raiz do executavel

cara começou a dar um erro "can't find project or library"... sei que num tem a ver com o que você passou mas é no MDIForm_Load

[Fabyo 66]

ve o que ta sendo carregado junto com o mdi

[LukasMoraes 0]

ve o que ta sendo carregado junto com o mdi

como assim?