Jogo 777

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs)

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        End
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Randomize()

        Superwin.Visible = False
        PictureBox2.Visible = False
        Bigwin.Visible = False
        Notstonks.Visible = False

        Label1.Text = Int(Rnd() * 10)
        Label2.Text = Int(Rnd() * 10)
        Label3.Text = Int(Rnd() * 10)


        For i As Integer = 0 To 10
            Label1.Text = Int(Rnd() * 10)
            Label2.Text = Int(Rnd() * 10)
            Label3.Text = Int(Rnd() * 10)
            Application.DoEvents()
            Threading.Thread.Sleep(150)
        Next

        If Label1.Text = "7" And Label2.Text = "7" And Label3.Text = "7" Then
            Superwin.Visible = True
        ElseIf Label1.Text = "7" And Label2.Text = "7" Or Label2.Text = "7" And Label3.Text = "7" Or Label1.Text = "7" And Label3.Text = "7" Then
            PictureBox2.Visible = True
        ElseIf Label1.Text = "7" Or Label2.Text = "7" Or Label3.Text = "7" Then
            Bigwin.Visible = True
        Else
            Notstonks.Visible = True
        End If


    End Sub
End Class