como saber cual fue el ultimo texbox q estubo activo

[netoec84]

que tal... quisiera saber si alguien me puede ayudar... estoy realizando una aplicacion en vb 6, en ella tengo varios textbox y un commandbutton al hacer click sobre este, se debe afectar al contenido del ultimo textbox en el q estubo el cursor. Alguien sabe como reconocer o saber cual fue el ultimo textbox del formulario que tubo el cursor en el?¿

[GeoAvila]

lo que se me ocurre es colocar una variable string

y en la opcion LostFocus pongas el nombre del texto.

Dim Ultimo as String ' esta variable la colocas fuera de todos los sub's y hasta arriba

Despues de Declarada

pones esto en el evento LostFocus

Ultimo = text1.name

de esta manera te dice cual ha sido el ultimo

con un boton podrías colocar
esto

msgbox Ultimo

Espero te sirva

[netoec84]

He agreagado el siguiente codigo pero no me funciono:

Código:

Dim lastTextBox As String

Private Sub txt1_LostFocus()
    lastTextBox = txt1.Name
End Sub

Private Sub cmdMN_Click()
    lastTextBox.Text = Val(lastTextBox.Text) * (-1)
End Sub

Que puedo hacer??? como se puede ver necesito el nombre del objeto para poder acceder a sus datos y tambien para modificarlos pero recibo el error "calificador no valido"...

alguna idea?

[Beakdan]

Netoec84:
Con estos cambios debe funcionarte. Al menos lo de la referencia al control.

Código:

Private lastTextBox As TextBox
 
Private Sub txt1_LostFocus()
	Set lastTextBox = txt1
End Sub

Saludos