Dim bNoise As Boolean
' True betyder en "Noise Event" som skall ignoreras

Private Sub Form_Load()
bNoise = False
End Sub

Private Sub Combo1_KeyDown(KeyCode As _
Integer, Shift As Integer)
' Om användaren browsar med
' piltangenterna, ignorera då
' click-händelsen
If KeyCode = vbKeyDown Or KeyCode _
= vbKeyUp Then bNoise = True
End Sub

Private Sub Combo1_Click()
If bNoise Then
' Ignorera Noise händelserna
' (upp eller ner tangenter)
bNoise = False
Else
' Påtvingar kontrollen att tappa fokus
SendKeys "{TAB}", True
End If
End Sub