Visual Basic.NET - NO INICIA COMBOBOX

Hola.

Estoy programando una aplicación para PDA.

La cuestión es que en un formulario tengo un combobox con todos los meses del año y al lado un textbox.

La cuestión es como debo programarelcomobox para que al pulsar en alguo de los meses, apareca automaticamente en el textbox el número de días que tiene ese mes.

Gracias.

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
me.combobox1.items.add("Enero")
me.combobox1.items.add("Febrero")
me.combobox1.items.add("Marzo")
me.combobox1.items.add("Abril")
me.combobox1.items.add("Mayo")
me.combobox1.items.add("Junio")
me.combobox1.items.add("Julio")
me.combobox1.items.add("Agosto")
me.combobox1.items.add("Septiembre")
me.combobox1.items.add("Octubre")
me.combobox1.items.add("Noviembre")
me.combobox1.items.add("Diciembre")
end sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged select case Me.ComboBox1.SelectedIndex + 1
case 1,3,5,7,9,11
me.textbox1.text = "31 dias"
case 4,6,8,10,12
me.textbox1.text = "30 dias"
case 2
me.textbox1.text = "28 dias"
End Sub