pessoal, como eu fazo para quando eu selecionar um registro em um datacombo ele perder o focu?

pessoal já encontrei a solução:

 

Private Sub DataCombo1_Click(Area As Integer)
On Error GoTo erro
    If Len(DataCombo1) > 0 Then Text4.SetFocus
erro:
End Sub

 

obrigado

uma forma simples de se fazer isto é setando o foco para outo objeto ex:

 

Private Sub Combo1_Click()
Text1.SetFocus
End Sub