一道VB题 if嵌套的使用

单击添加 在单击确定 列表框会添加文本框中的内容， 单击删除 在单击确定 会删除列表框中被选中的项目。 如果没选中项目 单击确认 会弹出个框框 显示 请选中要删除的项目

Private Sub Command1_Click()
If Option1.Value = True Then
List1.AddItem Text1.Text
End If
If Option2.Value = True Then
If List1.ListIndex = -1 Then
MsgBox "请选中要删除的项目", vbOKOnly
Else
List1.RemoveItem List1.ListIndex
End If
End If
End Sub

if(添加按钮选中) then list1.additem 添加

l ist1.removeitem 删除