poxa arrumei um livro aqui VB2005 passo a passo já to me arrumando ai tem um exercicio la q eu dei uma alterada mas não deu certo me da uma dica ai q q ta errado aqui ??? Public Class Form1
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
PictureBox1.Visible = False 'oculta figura
PictureBox2.Visible = False
PictureBox3.Visible = False
Label1.Text = CStr(Int(Rnd() * 10)) 'escolhe numeros
Label2.Text = CStr(Int(Rnd() * 10))
Label3.Text = CStr(Int(Rnd() * 10))
'se algum numero for 7 exibe figura e emite bipe
If (Label1.Text = "7") Then
PictureBox1.Visible = True
Beep()
End If
If (Label2.Text = "7") Then
PictureBox2.Visible = True
Beep()
End If
If (Label3.Text = "7") Then
PictureBox3.Visible = True
Beep()
End If
End Sub
End Class po acho q deve funcionar tb mas e q não sei nada nada mesmo quando tiver um pouquinho melhor tento porque na meioria das veses q eu alterar algo vai der erro e eu não vou saber o q foi mas daqui a ums 5 dias já da pra tentar