[VB6] TextBox e Label con ricerca per codice

[tippolo]

Ciao, il codice che ti ha proposto mardok30 è esatto, sono certo che tu hai fatto solo un copia-incolla nell'evento change e non ti sei reso conto del nome degli oggetti (textbox)

if textbox1.text = "507767675768" Then
     textbox2 .text = "CA77857"
     label1.caption  = "XSB4"
else
     textbox2 .text = ""
     label1.caption  = ""
End if

prova a soistituire il nome degli oggetti textbox:

If Text1.Text = "507767675768" Then
     Text2 .Text = "CA77857"
     Label1.Caption = "XSB4"
Else
     Text2 .Text = ""
     Label1.Caption = ""
End If

ciao