1. Vervangen van cboStatus door een Frame met OptionButtons

• Verwijder eerst cboStatus en het bijbehorende Label van het formulier — je vervangt deze, niet toevoegen naast de nieuwe controls.
• Sleep een Frame-control naar het formulier en sleep vervolgens alle drie de OptionButtons binnen de rand van het Frame — deze insluiting zorgt ervoor dat ze elkaar wederzijds uitsluiten als één groep.
• Hernoem elke OptionButton afzonderlijk in het Eigenschappenvenster; het Frame zelf kan een eenvoudige Caption zoals "Status" behouden, maar heeft geen codevriendelijke naam nodig tenzij je er direct naar wilt verwijzen.
• De selectie uitlezen betekent dat je de .Value van elke OptionButton afzonderlijk controleert met If...ElseIf — er is geen enkele eigenschap die aangeeft "welke in de groep is geselecteerd".
• Omdat cboStatus.Value niet meer bestaat, heeft cmdSave_Click nu een status-variabele nodig die wordt opgebouwd uit de OptionButtons en in plaats daarvan in newRow wordt geschreven.

2. Toevoegen van twee onafhankelijke CheckBoxes

• Deze staan direct op het formulier (niet in het Frame) — CheckBoxes buiten een gedeelde container beïnvloeden elkaar nooit, ongeacht de groepering.
• Om "te bevestigen tijdens het testen", vink je gewoon de ene aan, dan de andere, en controleer je dat geen van beide de eerste uitschakelt.

3. Toevoegen en valideren van een ListBox

• Vul deze op dezelfde manier als cboCity werd gevuld — herhaalde .AddItem-aanroepen in UserForm_Initialize.
• ListIndex = -1 betekent specifiek er is nog niets aangeklikt — dat is precies de voorwaarde die je moet controleren voordat je het opslaan toestaat.
• Deze controle hoort in hetzelfde validatieblok als de andere verplichte velden, en wordt toegevoegd aan dezelfde errors-string.

4. MultiPage-uitdaging

• Sleep een MultiPage-control naar het formulier — deze bevat standaard twee pagina's, precies het aantal dat je nodig hebt.
• Hernoem elke pagina via rechtsklik → Pagina Volgorde, of door het paginatabblad zelf te selecteren en het veld Caption in het Eigenschappenvenster te gebruiken (Caption bepaalt de zichtbare tekst op het tabblad; er is ook een apart (Name)-veld als je een pagina in de code wilt aanspreken).
• Bestaande controls naar een pagina verplaatsen betekent dat je ze fysiek naar het zichtbare gebied van die pagina sleept in de ontwerpweergave — codeverwijzingen naar deze controls veranderen niet, omdat de naam van een control niet afhankelijk is van de pagina waarop deze staat.

Private Sub UserForm_Initialize()
    cboCity.AddItem "Chicago"
    cboCity.AddItem "Boston"
    cboCity.AddItem "Austin"
    cboCity.AddItem "Seattle"
    cboCity.AddItem "Denver"

    lstCities.AddItem "Chicago"
    lstCities.AddItem "Boston"
    lstCities.AddItem "Austin"
    lstCities.AddItem "Seattle"
    lstCities.AddItem "Denver"
End Sub

Private Sub cmdCancel_Click()
    Unload Me
End Sub

Private Sub cmdSave_Click()
    Dim tbl As ListObject
    Dim newRow As ListRow
    Dim errors As String
    Dim status As String

    ' --- Reset field colors ---
    txtCompanyName.BackColor = vbWhite
    txtContact.BackColor = vbWhite
    txtEmail.BackColor = vbWhite

    ' --- Required field checks ---
    If Trim(txtCompanyName.Value) = "" Then
        errors = errors & "- Company Name is required" & vbNewLine
        txtCompanyName.BackColor = RGB(255, 199, 206)
    End If

    If Trim(txtContact.Value) = "" Then
        errors = errors & "- Contact is required" & vbNewLine
        txtContact.BackColor = RGB(255, 199, 206)
    End If

    If Trim(txtEmail.Value) = "" Then
        errors = errors & "- Email is required" & vbNewLine
        txtEmail.BackColor = RGB(255, 199, 206)
    End If

    ' --- Status via OptionButtons ---
    If optActive.Value = True Then
        status = "Active"
    ElseIf optInactive.Value = True Then
        status = "Inactive"
    ElseIf optProspect.Value = True Then
        status = "Prospect"
    Else
        errors = errors & "- Please select a Status" & vbNewLine
    End If

    ' --- ListBox check ---
    If lstCities.ListIndex = -1 Then
        errors = errors & "- Please select a city from the list" & vbNewLine
    End If

    If errors <> "" Then
        MsgBox "Please fix the following:" & vbNewLine & errors, vbExclamation
        Exit Sub
    End If

    ' --- All checks passed — safe to save now ---
    Set tbl = ThisWorkbook.Worksheets("Customers").ListObjects("tblCustomers")
    Set newRow = tbl.ListRows.Add

    newRow.Range(1, 1).Value = "C0" & (tbl.ListRows.Count + 100)
    newRow.Range(1, 2).Value = txtCompanyName.Value
    newRow.Range(1, 3).Value = txtContact.Value
    newRow.Range(1, 4).Value = txtEmail.Value
    newRow.Range(1, 5).Value = cboCity.Value
    newRow.Range(1, 6).Value = status

    If chkWelcomeEmail.Value = True Then
        MsgBox "A welcome email would be sent to " & txtEmail.Value & "."
    End If

    MsgBox txtCompanyName.Value & " was added successfully."
    Unload Me
End Sub

Testnotities:

• Punt 2 (CheckBoxes) heeft geen aparte validatie — klik gewoon chkWelcomeEmail en chkNewsletter onafhankelijk en bevestig dat elke schakelaar werkt zonder de ander te beïnvloeden.
• Punt 4 (MultiPage) is alleen een lay-outwijziging — er zijn geen codewijzigingen nodig buiten wat hier al staat, omdat elke control zijn eigen naam behoudt, ongeacht op welke pagina deze staat.
• Merk op dat cboCity.Value nog steeds wordt gebruikt voor het daadwerkelijke opslaan (newRow.Range(1, 5)), terwijl lstCities puur bestaat als een aparte, onafhankelijk gevalideerde control volgens de opdracht — de twee zijn niet aan elkaar gekoppeld, tenzij je ervoor kiest dit zelf uit te breiden.