senkeys

Hej
Jag håller på att ett sendkeys problem.
Vad jag vill åstakomma är att jag vill aktivera combobox2 när
jag lämnar combobox1 har alltså lagt koden i lostfocus för
combobox1 och vill trigga igång när jag tabbar bort och
har lagt in detta

cbombobox2.SetFocus
SendKeys "%{DOWN}"
SendKeys " "

detta fungerar bra i windows2000 men ej för XP då måste
man klicka pil ner.
Jag jag vet att DOWN är för pil ner men faktum är att det
funkar med tab i win2000 om jag däremot väljer att skicka
tab så fungerar det inte alls varken på win2000 eller XP.
Nån som kan förklara detta?

Nu kör jag inte XP så jag vet inte varför den inte gillar SendKeys "%{DOWN}". Men vanligt hederligt Windows-API borde den väl begripa, tycker man:

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const CB_SHOWDROPDOWN = &H14F

'
'
cbombobox2.SetFocus
SendMessage cbombobox2.hwnd, CB_SHOWDROPDOWN, True, 0 'True=ner, False=upp
SendKeys " "
'
'