ciao a tutti sto cercando di costruire una sorta di videopoker con delle label e altro necessario alla sua funzionalità, non riesco a far funzionare una cosa, quando ad esempio becca 2 carte uguali lui dovrebbe darti 1 puno se ne becca 3 uguali te ne dovrebbe dare 10, invece ne da sempre 1, come mai non lo so, vi posto qui un pezzo del codice.


codice:
Public Class Form1     Dim punteggio As Integer      Dim x As New Random     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         My.Computer.Audio.Play("suono1.wav")         TextBox2.Text = Val(TextBox2.Text) - Val(TextBox3.Text)         Label9.Text = punteggio         Label1.Text = (x.Next(1, 9))         Label2.Text = (x.Next(1, 9))         Label3.Text = (x.Next(1, 9))         Label4.Text = (x.Next(1, 9))         Label5.Text = (x.Next(1, 9))          If Label1.Text = "1" And Label2.Text = "1" Then             punteggio = punteggio + "1"             Label6.Text = "WIN"             My.Computer.Audio.Play("suono2.wav")         ElseIf Label1.Text = "1" And Label2.Text = "1" And Label3.Text = "1" Then             punteggio = punteggio + "10"             Label6.Text = "WIN"             My.Computer.Audio.Play("suono2.wav")         ElseIf Label1.Text = "1" And Label2.Text = "1" And Label3.Text = "1" And Label4.Text = "1" Then             punteggio = punteggio + "100"             Label6.Text = "WIN"             My.Computer.Audio.Play("suono2.wav")         ElseIf Label1.Text = "1" And Label2.Text = "1" And Label3.Text = "1" And Label4.Text = "1" And Label5.Text = "1" Then             punteggio = punteggio + "1000"             Label6.Text = "WIN"             My.Computer.Audio.Play("suono2.wav")         ElseIf Label1.Text = "2" And Label2.Text = "2" Then             punteggio = punteggio + "1"             Label6.Text = "WIN"             My.Computer.Audio.Play("suono2.wav")         ElseIf Label1.Text = "2" And Label2.Text = "2" And Label3.Text = "2" Then             punteggio = punteggio + "10"             Label6.Text = "WIN"             My.Computer.Audio.Play("suono2.wav")         ElseIf Label1.Text = "2" And Label2.Text = "2" And Label3.Text = "2" And Label4.Text = "2" Then             punteggio = punteggio + "100"             Label6.Text = "WIN"             My.Computer.Audio.Play("suono2.wav")         ElseIf Label1.Text = "2" And Label2.Text = "2" And Label3.Text = "2" And Label4.Text = "2" And Label5.Text = "2" Then             punteggio = punteggio + "1000"             Label6.Text = "WIN"             My.Computer.Audio.Play("suono2.wav")