ficha de trabalho numero 10 exercicio 1

Private Sub Command1_Click()
Dim aleatorio As Integer
Picture1.Picture = LoadPicture("")
Picture2.Cls
Randomize
aleatorio = Int(Rnd() * 9) + 1
Label1.Caption = aleatorio
If aleatorio = 7 Then
Picture1.Picture = LoadPicture("C:\Users\11I21\Pictures\italy.jpg")
Else
Picture2.Print "tente outra vez "

End If
End Sub