usa o evento lostfocus. Para facilitar, usa arrays nos textbox paa cada item...
digamos q vc tenha 10 itens daí ficaria
ex:
txtquant(1)...txtquant(10)
txtvalor(1)...txtvalor(10)
txtresultado(1)....txtresultado(10)
nos eventos lost focus
private sub txtquant_lostfocus(index as a integer)
textresultadoindex.text= val(txtquant(index).text)*val(txtvalor(index).text)
total=0
for i=1 to 10
total=total+val(textresultado(i).text)
next i
text_valortotal=total
end sub
Copiar o mesmo código para o procedure textvalor_lostfocus
PS. registre-se no forum...
