Treze,
Ao que parece é um form só q ele chama...
a coisa ficaria +- assim
num modulo
Global transporte(n) as variant ' n é a quantidade de textbox, do form1, q será utilizada para o envio/recebimento do calculo
no Form dos texts (vou chamar de form1)
cria um array de texts text(1), text(2)...text(n)
no form1 ainda
Private Sub Text1_KeyPress( index as integer,KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0
load form2
form2.show
Else
End If '..
supondo que os calculos a serem efetuados serão sempre os mesmos...vou usar no ex um calculo de porcentagem digamos 20 por cento
o procedure do botão calcula seria...
private sub bt_calcula()
for i= 1 to n ' o n é a qtde de textbox do form1
resultado= 20* transporte(i)/100
next i
form1.atualiza
form2.unload
end sub
'Voltando ao form1
public sub atualiza()
for i=1 to n
text1(i).text=transporte(i)
next i
end sub
