[VB6] Verifica uguaglianza valori in più TextBox

[SimoDominik]

Ciao a tutti mi sapete risolve un problema per favore?

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

[girobai]

If Text1.Text = Text2.Text and Text2.Text = Text3.Text Then

[SimoDominik]

Grazie.....anke se avevo gia risolto..grazie cmq....

[alka]

[VB6]Aiuto TextBox

...anche un titolo migliore sarebbe opportuno.