Haga clic en el botón PictureBox en VB para cambiar automáticamente la imagen

Subcomando privado1_Click()

Atenuar i como entero

i = Int((4 * Rnd()) 1) 'Generar un número aleatorio a partir de 1 a 4 números, puedes cambiar 4 a otros números

Si i = 1 Then Form1.Picture = LoadPicture("D:\My Folder\1.jpg") 'Puedes cambiar Form1 después de Then Change a PictureBox

Si i = 2 Entonces Form1.Picture = LoadPicture("D:\Mi Carpeta\2.jpg")

Si i = 3 Entonces Form1.Picture = LoadPicture( "D:\Mi Carpeta\3.jpg")

Si i = 4 Entonces Form1.Picture = LoadPicture("D:\Mi Carpeta\4.jpg")

Fin Sub