Private Sub Form_Click()
    If Option1.Value = True Then
        Text1.Text = InputBox("请输入要添加的项目")
        'List1.AddItem ?
    End If
    If Option2.Value = True Then
        Text1.Text = InputBox("请输入要删除的项目")
        'For i = 0 To ?
            'If List1.List(i) = ? Then
                'List1.RemoveItem ?
            End If
        Next i
    End If
End Sub