[VB.NET] Creare un gioco a punti

[fifiddu]

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.

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")

[Il Totem]

Inverti la sequenza di if.

[fifiddu]

grazie totem funziona perfettamente.