Validate Any Control (VB5 or VB6)

[dw85745]

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

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