PictureBox1.Visible = False    ' hide picture 
Label1.Text = CStr(Int(Rnd() * 10))    ' pick numbers 
Label2.Text = CStr(Int(Rnd() * 10)) 
Label3.Text = CStr(Int(Rnd() * 10)) 
' if any number is 7 display picture and beep 
If (Label1.Text = "7") Or (Label2.Text = "7") _ 
Or (Label3.Text = "7") Then 
    PictureBox1.Visible = True 
    Beep() 
End If