Error, espacio de pila insuficiente

[piriots]

Buenas gente!! Estoy haciendo un programita simple en VB6 que me envie datos al pic, si mando una sola variable no tengo ningun problema, si mando dos me tira este error " espacio de pila insuficiente" . A ver si alguien es capaz de encontrar el error. Este es el codigo

Private Sub enviar_Click()
var = send.Text
enviar = envia.Text
info.Text = "Enviant  " & vbclrf & var & vbclrf
MSComm1.Output = var
MSComm1.Output = enviar

End Sub

Hay mas partes de codigo pero el error me lo da en este trozo.

Salu2

[BrunoF]

Hola piriots.
"enviar" que es? un command button? un textbox?
Si enviar es un command button, fijate que seguro tenes el problema en esta linea: enviar = envia.Text
Ese error tiene varios motivos posibles. Saludos.

[piriots]

Enviar es un command button, su funcion es enviar al pic el contenido de los textbox send y envia. He intentado enviar con 2 botones distintos el contenido de los textbox send y envia y lo he conseguido. Pero he de hacerlo con un solo boton...

¿Tienes idea de donde puede venir el error?

Salu2

[BrunoF]

bien pero fijate que en la linea enviar = envia.Text estas igualando el estado del commandbutton(que es un boolean) al contenido de un textbox, por lo que si el texto de "envia"  es distinto a un valor booleano, vas a tener un error(aunque no creo que sea el que mencionas)

Tal vez no estes dando suficiente espacio al buffer de envio del MSComm1, fijate en eso.

probaste haciendo:

Private Sub enviar_Click()

var = send.Text
info.Text = "Enviant  " & vbclrf & var & vbclrf
var= var & envia.Text
MSComm1.Output = var

End Sub

Saludos!

[piriots]

De esta forma si que funciona, muchas gracia brunoF.

Salu2

[BrunoF]

De nada. Feliz programacion