açılır kutuya girdiğinizde aşağı yukarı tuşları zaten çalışır,
tam olarak yapmak istediğinizi biraz daha ayrıntılı anlatır mısınız?
açılan kutu odaklanıldığında olayını aşağıdaki gibi düzenler misiniz
Private Sub Açılan_Kutu4_GotFocus()
Me.Açılan_Kutu4.Dropdown
End Sub