Markere tekst i combo boks

Hvis jeg har en tekstboks kan jeg få markeret hele den tekst som står i boksen når der klikkes med musen i feltet, ved at lave følgende.

Private Sub SelectAarsag_Click()
    SendKeys "{F9}"
End Sub

Men hvis jeg forsøger det samme med en combo boks sker der ingenting. Jeg ønsker at hele teksten i boksen markeres, når der klikkes med musen et sted i feltet.