Ayuda!!! - Como Saber Que Control tiene el Focus en Un Formulario de VB 5 - 6

[apcomt]

No se de cuando es esta pregunta pues soy nuevo en este foro.


Se me ocurrio que pongas un Timer, dentro del escribas el siguiente codigo

Private Sub Timer1_Timer()

On Error Resume Next ' <<< Este hara que cuando el control que tome el
Dim S As TextBox '<<<<foco no sea un textboxt entonces lo ignora
S = Me.ActiveControl.Name
TomarFoco S
End Sub

'Hacemos funcion que se llame tomarFoco
Public Function TomarFoco(Control As TextBox)
Control.BackColor = &H8000&
Control.ForeColor = vbWhite
End Function

Se que puede haber otra forma, inclusive en el evento KeyPress, pero fue lo primero que se me ocurrio, espero te sirva