Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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
Carregando comentários...