Como puedo saber si un TextBox tiene el foco ?

[Bazooka]

Puedo resolverlo con una variable que tome un valor o el nombre del control en cuestion pero quisiera saber si hay alguna funcion nativa que indique sin un control tiene el foco .

Gracias

Mike

[coco]

Código: (vb) [Seleccionar]

Private Declare Function GetFocus Lib "user32" () As Long


Private Function IsFocused(ByRef objSrc As Object) As Boolean
     On Local Error Resume Next  ' handler si el objeto no tiene hwnd
     IsFocused = (GetFocus = objSrc.hWnd)
End Function

llamalo con IsFocused (txtPrueba)

[Bazooka]

Buenisimo COCO!! recapo... Gracias !!!