настройка фокуса в txtboxes в vb6?

Question

Я работаю с этим кодом для проверки msktxtbox для даты. Все работает нормально, но меня действительно раздражает то, что после того, как всплывает msgbox и пользователь нажимает ok, фокус не переходит в 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.

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