【实例说明】
    利用程序输入信息时，经常由于马虎输入了重复的信息。为避免输入重复信息，可以在添加重复信息时进行警告。

【编程思路】
    通过判断文本框内输入的内容是否在列表中存在，来确定信息是否重复。相关的属性和方法：
    AddItem方法，将项目添加到ListBox列表里。
    语法：object.AddItem item,index
    参数：Item必需的。字符串表达式，用来指定添加到列表中的项目。Index可选。是整数，用来指定新项目或行在列
          表中的位置。
    ListCount属性，列表中项目的个数。
    ListIndex属性，设置列表中当前被选择的项目的索引。
    Text属性，列表中的文本。

【设计步骤】
    1.新建一个标准工程，创建一个新窗体，默认名为Form1。
    2.在Form1窗体中放置一个Text控件、一个ListBox控件、两个Command控件。

    3.源程序  [素材源程序下载]

Private Sub Form_Load()
        Me.List1.AddItem "http://vbw.wy8.net"
        Me.List1.AddItem "http://vbw.icpcn.com"
End Sub

Private Sub Command1_Click()
        Dim i As Integer
        For i = 0 To List1.ListCount - 1
                List1.ListIndex = i
                If List1.Text = Text1.Text Then '如果信息重复
                        MsgBox "系统不允许重复输入，请重新输入"
                        Exit Sub
                End If
        Next i

        List1.AddItem Text1.Text '添加信息
End Sub

Private Sub Command2_Click()
        End
End Sub