麻烦大家帮我看下，我写的这段代码的删除功能错误。为什么不能正常运行。
我要做的是当我选择多个选项的时候，点击删除，就直接删除了。如果没有选中，就点击删除，则提示信息，说“没有选中任何选项”
'添加按钮
Private Sub Command1_Click()
    If Text1.Text = "" Then
        Print Spc(3);
        Print "你添加了空边内容，请输入内容后再添加信息"
    Else
        List1.AddItem Text1.Text
    End If
End Sub
'删除按钮
Private Sub Command2_Click()
    
    For j = 0 To List1.ListIndex
        If List1.Selected(j) = False Then
            Print Spc(3);
            Print "你没有选择任何选项"
        End If
    Next j
    
    Dim i As Integer
    Do While List1.SelCount > 0
        Do Until List1.Selected(i)
            i = i + 1
        Loop
        List1.RemoveItem i
    Loop
End Sub