vb问题 如何刷新listbox中的内容

一个textbox 和一个listbox控件。我在textbox中点击确定 添加内容，textbox中的内容显示在listbox中，我想让listbox不用点击刷新，实时显示textbox中的内容。请大侠们帮帮我  万分感谢！！！ --------------------编程问答-------------------- list1.additem (trim(text1.text))
--------------------编程问答-------------------- 是不是这个意思：
Private Sub Text1_Change()
    If List1.ListCount = 0 Then List1.AddItem Text1.Text
    List1.List(List1.ListCount - 1) = Text1.Text
End Sub

补充：VB ,  控件