combobox xổ ra list khi setfocus

[NguyenthiH]

Chào các anh chị.
Em có tạo form nhập liệu, trên form có 2 combobox, em muốn khi enter ở combobox thừ nhất thì combobox thứ hai setfocus và xổ ra list.
Em có viết đoạn code như sau, nhưng không khả thi:

Private Sub cb1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then cb2.SetFocus
End Sub
Private Sub cb2_Enter()
    cb2.DropDown     
End Sub

Mong các anh chị chỉ giáo.

 

[ongke0711]

Private Sub cb1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then
        cb2.SetFocus
        cb2.DropDown
    End If
End Sub

 

[NguyenthiH]

Cám ơn anh @ongke0711, thế mà không biết.