Problemita Con Los TextBox en VB6

[R3Z]

Tengo Un Problemita Con Los Textbox

tengo 3 textbox  con diferentes nombre

Código (vb) [Seleccionar] Expandir

TXTprecio = Format(Val(TXTprecio.Text), "Currency")
Form4.lblprecio = Form2.TXTprecio.Text

en el form4 me sale el precio pero si le agrego otro textbox no me sale
y asi sucesivamente

Código (vb) [Seleccionar] Expandir

TXTprecio = Format(Val(TXTprecio.Text), "Currency")
Form4.lblprecio = Form2.TXTprecio.Text

Precio = Format(Val(Precio.Text), "Currency")
Form4.lblprecio = Form2.Precio.Text



Estaba Pensando en poner if y then a cada uno

Código (vb) [Seleccionar] Expandir

if Precio = Format(Val(Precio.Text), "Currency") then
Form4.lblprecio = Form2.Precio.Text


mi pregunta es como hago para que  los que yo digito en los textbox's me salen en el form(4)

Código (vb) [Seleccionar] Expandir


Form4.lbldinero = Form2.precio.Text
Form4.lblprecio = Form2.textprecio.Text
Form4.lblprecio = Form2.txtprecio.Text


solo me sale lblprecio=0 con los 3  pero si tengo 1 me sale el precio en form4

[R3Z]

Problema Resuelto


Informe=Todavia Me Salio A lo Primero Ahora No me quiere salir

Código (vb) [Seleccionar] Expandir

TXTprecio = Format(Val(TXTprecio.Text), "Currency")
Form4.lblprecio = Form2.TXTprecio.Text

Precio = Format(Val(Precio.Text), "Currency")
Form4.lblprecio = Form2.Precio.Text

TextPrecio = Format(Val(TextPrecio.Text), "Currency")
Form4.lblprecio = Form2.TextPrecio.Text

preciotext = Format(Val(preciotext.Text), "Currency")
Form4.lblprecio = Form2.preciotext.Text