I have the following code for a LostFocus event on my vb6 form. As you can see it is on a textbox control named MR6Date(0)
I have an array of MR6Date(0) to MR6Date(19)
Is it possible to have this code run for all LostFocus events for this array?
Private Sub MR6Date_LostFocus(Index As Integer)
If Not MR6Date(0) = "" Then
If IsDate(MR6Date(0)) = False Then
MsgBox "Enter a Valid Date in the Correct Format", vbOKOnly, "Date"
MR6CCM(0).Enabled = False
MR6CSW(0).Enabled = False
Text15 = Format(MR6Date(0), "mm/dd/yyyy")