Generador de Imagenes

Generador de Imagenes AUTOMATICO o MANUAL

Private Sub Command1_Click()

Timer1.Enabled = True

End Sub

Private Sub Command2_Click()

Command3.Enabled = True

Timer1.Enabled = False

End Sub

Private Sub Command3_Click()

Dim x As Integer

Randomize

x = Int(Rnd() * 4) + 1

If x = 1 Then Image1.Picture = Image2.Picture

If x = 2 Then Image1.Picture = Image3.Picture

If x = 3 Then Image1.Picture = Image4.Picture

If x = 4 Then Image1.Picture = Image5.Picture

Timer1.Enabled = False

End Sub

Private Sub Timer1_Timer()

Dim x As Integer

Randomize

x = Int(Rnd() * 4) + 1

If x = 1 Then Image1.Picture = Image2.Picture

If x = 2 Then Image1.Picture = Image3.Picture

If x = 3 Then Image1.Picture = Image4.Picture

If x = 4 Then Image1.Picture = Image5.Picture

Command3.Enabled = False

End Sub