Установить фокус в txtboxes в vb6?

Question

Я работаю с этим кодом для проверки msktxtbox для даты. Все работает нормально, но что меня действительно раздражает, так это то, что после появления сообщения msgbox и нажатия кнопки "ОК" фокус не переходит на mskDOB. он переходит к следующему элементу управления "TAB INDEX". ПОЧЕМУ это делает? Как мне это исправить?

Dim datCurrentDate As Date
datCurrentDate = Format(Now, "MM/DD/YYYY")
If Not (IsDate(mskDOB.Text)) Then
    MsgBox "Please check the Date, and re-enter again", vbInformation, "Error"
    mskDOB.SetFocus
    Exit Sub
    Else
        If Format(CDate(mskDOB.Text), "MM/DD/YYYY") >= datCurrentDate Then
            MsgBox "Please check the Date, and re-enter again", vbInformation, "Error"
            mskDOB.SetFocus
            Exit Sub
        End If
End If

Answer 1

Вместо того, чтобы использовать mskDOB.SetFocusпопробуйте использовать cancel = true,

Я попытался опубликовать это как комментарий, но у меня недостаточно репутации, чтобы оставить комментарий, и поэтому я разместил это как ответ