Inicializar combobox con mes y año actual

Dim mes As Integer = Now.ToString("MM").Substring(1, 1) - 1
cbMes.SelectedIndex = mes

 Dim anio As Integer = Now.ToString("yyyy")
 For i As Integer = 2017 To anio
            cbAnio.Items.Add(i)
 Next
 cbAnio.SelectedItem = anio