急急急！！！！在VB中有2个文本框、1个列表框、2个按钮。在文本框内输入信息，利用按钮添加到列表框内

Option Explicit

Private Sub Command1_Click()
List1.AddItem Text1.Text & Chr(9) & Text2.Text
End Sub

Private Sub Command2_Click()
Dim i As Integer
i = List1.ListIndex
If i = 0 Then '防止删除表头
Exit Sub
End If
List1.RemoveItem i
If i >= List1.ListCount Then '防止删除最后一项引起错误
i = i - 1
End If
List1.ListIndex = i
End Sub

Private Sub Form_Load()
List1.AddItem "姓名" & Chr(9) & "电话"
End Sub

我给你最关键部位的代码如下，其它的你应该会的（如先判断文本框是否有内容等等）：

Private Sub Command1_Click() '添加按钮的代码

  List1.AddItem Format(Text1.Text, "!@@@@@@@@") & Format(Text2.Text, "!@@@@@@@@@@@")

End Sub

Private Sub Command2_Click() '删除按钮的代码

    List1.RemoveItem (List1.ListIndex)

End Sub 

效果如图: