mise en focus dans txtboxes en vb6?

Question

Je travaille avec ce code pour valider une msktxtbox pour Date. Tout fonctionne bien, mais ce qui m'ennuie vraiment c'est qu'après que le msgbox sorte et que l'utilisateur clique sur OK, le focus ne va pas sur mskDOB. il passe au contrôle "TAB INDEX" suivant. Pourquoi le fait-il? Comment je le répare?

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

Au lieu d'utiliser mskDOB.SetFocus essayez d'utiliser cancel = true.

J'ai essayé de poster ce commentaire comme, mais je n'ai pas assez réputation pour poster un commentaire et donc j'ai posté cela comme une réponse