Opgelost Een listbox toevoegen aan een invulformulier

[Noone]

Ik ben een leek op dit terrein en probeer te leren van publicaties op internet.
Maar vraag uw hulp voor het volgende:
Ik heb een invulformulier gemaakt met enkele tekstvelden.
Daar wil ik een listbox aan toevoegen met enkele keuze-items.
Ik zie wel programmacodes hiervoor op internet, maar het lukt mij niet om deze combinatie te maken in het formulier.
Heel fijn als iemand mij hierbij wil helpen...

De programmacode voor mijn formulier is als volgt:

Private Sub cmdSubmit_Click()
    Dim iRow As Long
        iRow = Sheet1.Range("A" & Rows.Count).End(xlUp).Row + 1
        With Sheet1
        .Range("A" & iRow).Value = Me.txtNaam.Value
        .Range("B" & iRow).Value = Me.txtVrnm.Value
        .Range("C" & iRow).Value = Me.txtVrltr.Value
     Hier moet de listbox met keuze items verschijnen

End With
  
'Reset the controls after submitting
  
    Me.txtNaam.Value = ""
    Me.txtVrnm.Value = ""
    Me.txtVrltr.Value = ""
      
    MsgBox "Data submitted Successfully!"
  
End Sub

 

[snb]

Het aantal helderzienden in dit forum is de afgelopen tijd drastisch afgenomen.
Als je de achterblijvers wil aktiveren helpt het plaatsen van een voorbeeldbestand.

 

[Noone]

De programmacode voor het formulier met invulvelden staat in mijn oorspronkelijke vraag.
Die invulvelden betreffen: Naam; voornaam; Voorletters.
In de keuzebox wil ik één van drie items laten kiezen: relatie; vriend; sponsor.

 

[djutoch]

Dus de helpers moeten eerst je bestand nabouwen?
IK vrees dat dit niet zal gebeuren, ik volg snb.

 

[Noone]

Excuus, zelfs dat ging niet goed blijkbaar.
Het bestand is hier alsnog bijgevoegd. Zou u nog eens willen kijken svp?

 

[edmoor]

Zoiets?

 

[Noone]

Opgelost. Dank aan Edmoor voor een werkend formulier in het bestand zoals gewenst.