1. Erstatning af cboStatus med en Ramme af OptionButtons

• Slet først cboStatus og dens Label fra formularen — du erstatter den, ikke tilføjer ved siden af.
• Træk en Ramme-kontrol ind på formularen, og træk derefter alle tre OptionButtons indenfor rammens grænse — denne indkapsling gør dem gensidigt udelukkende som én gruppe.
• Omdøb hver OptionButton individuelt i Egenskabsvinduet; selve rammen kan beholde en simpel Caption som "Status", men behøver ikke et kodevenligt navn, medmindre du planlægger at referere direkte til den.
• For at læse valget skal du kontrollere hver OptionButtons .Value individuelt med If...ElseIf — der findes ingen enkelt egenskab, der fortæller dig "hvilken i gruppen er markeret".
• Da cboStatus.Value ikke længere eksisterer, skal cmdSave_Click have en status-variabel, der bygges ud fra OptionButtons i stedet, og skrives ind i newRow i stedet for.

2. Tilføjelse af to uafhængige CheckBoxes

• Disse placeres direkte på formularen (ikke inde i rammen) — CheckBoxes uden for en delt container påvirker aldrig hinanden, uanset gruppering.
• For at "bekræfte under test" skal du blot markere den ene, derefter den anden, og se at ingen afmarkerer den første.

3. Tilføjelse og validering af en ListBox

• Udfyld den på samme måde som cboCity blev udfyldt — gentagne .AddItem-kald i UserForm_Initialize.
• ListIndex = -1 betyder specifikt intet er blevet klikket endnu — det er den præcise betingelse, der skal kontrolleres, før gemning tillades.
• Denne kontrol hører til i samme valideringsblok som de andre påkrævede felter, og tilføjes til den samme errors-streng.

4. MultiPage-udfordring

• Træk en MultiPage-kontrol ind på formularen — den har to sider som standard, hvilket er præcis det antal, du har brug for.
• Omdøb hver side via dens egen højreklik → Page Order, eller ved at vælge sidens fane og bruge Egenskabsvinduets Caption-felt (Caption styrer fanens synlige tekst; der er også et separat (Name)-felt, hvis du vil referere til en side ved navn i kode).
• At flytte eksisterende kontroller til en side betyder at trække dem fysisk ind på den pågældende sides synlige område i Design-visning — kodehenvisninger til dem ændres ikke, da en kontrols navn ikke afhænger af, hvilken side den er placeret på.

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

Testnoter:

• Punkt 2 (CheckBoxes) har ingen dedikeret validering — klik blot på chkWelcomeEmail og chkNewsletter uafhængigt og bekræft, at hver kan slås til/fra uden at påvirke den anden.
• Punkt 4 (MultiPage) er kun en layoutændring — der er ikke behov for kodeændringer ud over det, der allerede er her, da hver kontrol beholder sit eget navn uanset, hvilken side den trækkes til.
• Bemærk, at cboCity.Value stadig bruges til den faktiske gemning (newRow.Range(1, 5)), mens lstCities kun eksisterer som en separat, uafhængigt valideret kontrol ifølge opgaven — de to er ikke forbundet, medmindre du selv vælger at udvide det.