1. Erstatte cboStatus med en ramme med alternativknapper

• Slett først cboStatus og dens etikett fra skjemaet — du erstatter den, ikke legger til i tillegg.
• Dra en Frame-kontroll inn på skjemaet, og dra deretter alle tre alternativknappene inn i rammens område — denne innkapslingen gjør dem gjensidig utelukkende som én gruppe.
• Gi hver alternativknapp nytt navn individuelt i egenskapsvinduet; selve rammen kan ha en enkel bildetekst som "Status", men trenger ikke et kodenavn med mindre du skal referere til den direkte.
• For å lese valget må du sjekke hver alternativknapps .Value individuelt med If...ElseIf — det finnes ingen enkelt egenskap som forteller deg "hvilken i gruppen som er valgt".
• Siden cboStatus.Value ikke lenger finnes, må cmdSave_Click ha en status-variabel bygget fra alternativknappene i stedet, som skrives inn i newRow på samme sted.

2. Legge til to uavhengige avkrysningsbokser

• Disse plasseres direkte på skjemaet (ikke inne i rammen) — avkrysningsbokser utenfor en delt beholder påvirker aldri hverandre uansett gruppering.
• For å "bekrefte under testing", merk bare av i én, deretter den andre, og se at ingen av dem fjerner merkingen fra den første.

3. Legge til og validere en listeboks

• Fyll den på samme måte som cboCity ble fylt — gjentatte .AddItem-kall i UserForm_Initialize.
• ListIndex = -1 betyr spesifikt at ingenting er valgt ennå — det er akkurat denne tilstanden du skal sjekke før lagring kan fortsette.
• Denne sjekken hører hjemme i samme valideringsblokk som de andre obligatoriske feltene, og legges til i samme errors-streng.

4. MultiPage-utfordring

• Dra en MultiPage-kontroll inn på skjemaet — den har to sider som standard, akkurat så mange du trenger.
• Gi hver side nytt navn via høyreklikk → Page Order, eller ved å velge sidens fane og bruke egenskapsvinduets Caption-felt (Caption styrer fanens synlige tekst; det finnes også et eget (Name)-felt hvis du vil referere til en side i kode).
• For å flytte eksisterende kontroller til en side, dra dem fysisk inn på den sidens synlige område i designvisning — kodereferanser til dem endres ikke, siden kontrollens navn ikke avhenger av hvilken side den ligger 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

Testnotater:

• Punkt 2 (avkrysningsbokser) har ingen egen validering — bare klikk på chkWelcomeEmail og chkNewsletter uavhengig og bekreft at hver kan slås av og på uten å påvirke den andre.
• Punkt 4 (MultiPage) er kun en layoutendring — ingen kodeendringer er nødvendig utover det som allerede finnes her, siden hver kontroll beholder sitt eget navn uansett hvilken side den ligger på.
• Merk at cboCity.Value fortsatt brukes for selve lagringen (newRow.Range(1, 5)), mens lstCities kun eksisterer som en separat, uavhengig validert kontroll i henhold til oppgaven — de to er ikke koblet sammen med mindre du selv velger å utvide det slik.