Validate Any Control (VB5 or VB6)

I developed this for VB5 since no validation event.
Forces return to Control Upon Error.

Code:

---


In Module:
----------


Public Declare Function Putfocus Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long


Public Sub SetCtrlFocus(hwnd As Long)
'Set Focus to a control.
'Forces Validation like VB6

    Call Putfocus(hwnd)

End Sub


In Control LostFocus Event:
-----------------------------------------
(See below for example)

Private Sub tbDataEndDate_LostFocus()

  On Error GoTo Error_tbDataEndDate

  {Code to check TextBox Input}
 
 
  Exit Sub
 
Error_tbDataEndDate:

  {Error Routine Goes Here}
 
  Call SetCtrlFocus(tbDataEndDate.hwnd)    '<<<<< RETURNS FOCUS IF ERROR

End Sub

---