Markere tekst i combobox II

Jeg prøver lige igen med en lille ændring:
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/alternativt at indholdet i combo boksen slettes.