vb.net关于ListView显示数据的有关问题，小弟我每刷新一次序号就重复一次

vb.net关于ListView显示数据的问题，我每刷新一次序号就重复一次

如图，代码如下

  Sub Main()

        path = GetINI("配置信息", "yxPath", "", "D:\我的信息配置\test.ini").ToString

        Try

            '读取文件内容

            Dim objFile As New System.IO.StreamReader(path, System.Text.ASCIIEncoding.Default)

            Dim strContents As String

            strContents = objFile.ReadToEnd()

            objFile.Close()

            objFile.Dispose()

            Dim mhs As MatchCollection

            Dim re = New RegExp

            re.Global = True

            re.Pattern = "\[\D{3,8}\]"      '同样是匹配地址

            mhs = re.Execute(strContents)

            Dim MyValue As String

            Dim UserName As String

            Dim ServerName As String

            Dim Remark2 As String

            Dim StartTime As String

            For i As Integer = 1 To mhs.Count()


                MyValue = mhs(i - 1).Value

                MyValue = MyValue.Replace("[", "")

                MyValue = MyValue.Replace("]", "")

                UserName = GetINI(MyValue, "UserName", "", path)

                ServerName = GetINI(MyValue, "ServerName", "", path)

                Remark2 = GetINI(MyValue, "Remark2", "", path)

                If Remark2 = 0 Then

                    Remark2 = "否"

                Else

                    Remark2 = ""

                End If

                StartTime = GetINI(MyValue, "StartTime", "", path)