Snasui Excel Forum

Code: Select all

Private Sub UserForm_Initialize()
    With FrmData.cbomonth
        .Clear
        .AddItem "Een nieuwe start"
        .AddItem "Alles heeft zijn tijd"
        .AddItem "De wereld aan je voeten"
        .AddItem "Een levend boek"
        .AddItem "Drempels"
        .AddItem "Kerstmis"
        .AddItem "Confituur of choco"
        .AddItem "Hoe groot is de hemel?"
        .AddItem "Ongelovige Thomas"
        .AddItem "Feesten"
        .AddItem "Er is er ??n jarig!"
        .AddItem "E?n van hart"
        .AddItem "Ervoor gaan"
        .AddItem "Groen gras"
        .AddItem "RELatie"
        .AddItem "Vele plaatjes"
        .AddItem "Iedereen fan"
        .AddItem "Schattenjacht"
        .AddItem "Lichtbakens"
        .AddItem "Rijke Luis"
        .AddItem "Hemel op aarde"
        .AddItem "Op bezoek"
    End With
End Sub