[VB.NET] pari e dispari

[gigi91]

vi posto i codici per giocare a pari e dispari, se interessano
Dispair

Dim generator As New Random
       Dim randomValue As Integer
       randomValue = generator.Next(1, 6)
       TextBox1.Text = (randomValue)
       Dim A As Integer = TextBox1.Text
       Dim B As Integer = TextBox2.Text
       MsgBox(A + B)
       If A + B = ("3") Or A + B = ("5") Or A + B = ("7") Or A + B = ("9") Then
           MsgBox("You" & " " & "Win")
       Else
           MsgBox("You" & " " & "Lose")
       End If 

Pair

Dim generator As New Random
       Dim randomValue As Integer
       randomValue = generator.Next(1, 6)
       TextBox1.Text = (randomValue)
       Dim A As Integer = TextBox1.Text
       Dim B As Integer = TextBox2.Text
       MsgBox(A + B)
       If A + B = ("2") Or A + B = ("4") Or A + B = ("8") Or A + B = ("10") Then
           MsgBox("You" & " " & "Win")
       Else
           MsgBox("You" & " " & "Lose")
       End If