2 x combobox i userform

Hej

jeg bruger nedenstående til en combobox i en userform - hvordan laver men 2 comboboxe i samme userform ?

----------------------------------
Private Sub UserForm_Initialize()
Sheets("Aftaler & Opfølgning").Select
ComboBox1.Clear
For Each d In Range("B4:B153")
If Application.CountIf(Range("b4", d.Address), d) = 1 Then
ComboBox1.AddItem d.Value
End If
Next d
Sheets("Log").Select
End Sub
---------------------------

/s