Private Sub Option1_Click()
 
    List1.Clear
    List1.AddItem "Hans"
    List1.AddItem "Peter"
    List1.AddItem "Paul"
 
End Sub
 
Private Sub Option2_Click()
 
    List1.Clear
    List1.AddItem "Nina"
    List1.AddItem "Nadine"
    List1.AddItem "Nikole"
 
End Sub

Mit freundlichen Gr??en,
Andy G.