Combobox

jeg har lavet den der combobox med code:

Private Sub Combo1_Change()
Select Case Combo1.ListIndex
    Case 1
        MsgBox \"Menu 1 selected\"
    Case 2
        MsgBox \"Menu 2 selected\"
    Case 3
        MsgBox \"Menu 3 selected\"
End Select
End Sub

men når jeg tester den kan jeg ikke rulle ned eller f.eks. der er ikke nogle muligheder???
Hvad skal jeg gøre?