以下程序运行时，用户可以在文本框Text1中输入文本，单击command1“添加”按钮后将文本中输入的内容加到列表框的末尾，用户选某列表框的某一个列表项后，单击command2“删除”按钮，将删除该列表项；如果没有任何一项选中，将有出错提示"先选择，再删除！"。

Private Sub Command1_Click()    '添加按钮

    If Len(Text1.Text) <> 0 Then

        

        Text1.Text = ""

        Text1.SetFocus

    End If

End Sub

Private Sub Command2_Click()      '删除按钮

    IfThen

        MsgBox "先选择，再删除！"

    Else

       

    End If

End Sub