VB listbox 如何添加判断语句使其显示不同的内容

List1.Clear
If a = 1 Then '满足某个条件，比如a=1
List1.AddItem "项目A111"
List1.AddItem "项目A222"
List1.AddItem "项目A333"
Else '不满足条件
List1.AddItem "项目B111"
List1.AddItem "项目B222"
List1.AddItem "项目B333"
End If追问

如果列表是在数据库中的要怎么弄呢？
原程序是这样的
Private Sub ListBox_allrights_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox_allrights.SelectedIndexChanged

End Sub

直接在中间加么？

追答

原来是VB.NET啊，早说嘛。对不起，帮不了你了，我的代码是VB6的。