Ciao a tutti mi sapete risolve un problema per favore?
codice:
Private Sub Command1_Click()
Randomize
    Dim i As Integer
    Dim LB As Integer
    Dim UB As Integer
    MINIMO = 1
    MASSIMO = 5
   Text1.Text = Int((MASSIMO - MINIMO + 1) * Rnd + MINIMO)
   Text2.Text = Int((MASSIMO - MINIMO + 1) * Rnd + MINIMO)
   Text3.Text = Int((MASSIMO - MINIMO + 1) * Rnd + MINIMO)
If Text1.Text = Text2.Text = Text3.Text Then
Label1.Caption = "VITTORIA!!"
End If

If Not Text1.Text = Text2.Text = Text3.Text Then
Label1.Caption = "Ritenta!"
End If
 End Sub
questo codice mi da l'errore k quando mi vengono 2 numeri uguali nella textbox mi da nella label vittoria...invece dovrebbe farlo solo quando sono uguali tutti e tre...cm posso fare??
grazie in anticipo