用ListView的方法比较简单，直接添加一个控件顺便把0001写到Tag属性里去就行了。如果只用ListBox的话，
成都创新互联公司长期为数千家客户提供的网站建设服务，团队从业经验10年，关注不同地域、不同群体，并针对不同对象提供差异化的产品和服务；打造开放共赢平台，与合作伙伴共同营造健康的互联网生态环境。为东营企业提供专业的成都做网站、网站制作、成都外贸网站建设，东营网站改版等技术服务。拥有十年丰富建站经验和众多成功案例,为您定制开发。
先创建一个类代表城市
Public Class City
Public Name As String
Public Num As String
Public Sub New(na As String, nu As String)
Name = na
Num = nu
End Sub
Public Overrides Function ToString() As String 'ListBox需要这个函数来显示
Return Name
End Function
End Class
然后把这个类的实例添加进去即可，比如：
ListBox1.Items.Add(New City("北京", "0001"))
读取的话就很简单，比如我要读第一项
Dim obj = ListBox1.Items(0)
If TypeOf obj Is City Then
Dim c As City = obj
'c.Name就是"北京"，c.Num就是"0001"了
End If
遍历之类的可以灵活使用，你也可以在类里面加些其它内容。
Dim Str(20) As String '20数据元素
Dim Text(20) As TextBox
Dim n As Integer = 0
For Each i In Text
i = New TextBox '实例化
i.Location = New Point(50, n * 20)
Me.Controls.Add(i) '添加窗体
Dim Index As Integer = i.TabIndex '没index属性
Str(n) = Index
i.Text = Str(n) 'str数组值赋值给文本框
n += 1
Next
Dim PictureBox11(1) as PictureBox ‘放在最前面
Dim i as integer
Form_load 设i=0
动态添加：
if ipicturebox11.ubound then load(picturebox11(i))
picturebox11(i).loadpicture("图片地址")
Picture11(i).PaintPicture Picture11(i).Picture, 0, 0, Picture11(i).Width, Picture11(i).Height
picturebox11(i).visible=true
i=i+1
动态删除
i=i-1
unload picturebox11(i)
给你一个方法，但是代码来不及帮你写了
1、数组自己可以定义成不定大小的，也就是可以修改上限的，记住要设置成可以保留原数据的那种
2、将数组的上限增加一个，原来有n个元素，现在修改为n+1
3、将需要插入位置及以后位置的数据用另外的数组保存
4、将需要插入的数据赋值给原来数组对应的位置，然后将保存的数据重新赋值回来
（3和4步，可以不用新的数组实现：将第n个数据赋值到第n+1个，第n-1个数据赋值到第n个、第n-2个数据赋值到第n-1个，依次类推，直到所有需要转移的数据全部操作完毕既可）
使用动态定义
ReDim a() AS **********'定义一个动态数组
...........
计算出第一个Y
ReDim a(0)
a(0)=Y
.....................
计算出第二个Y
ReDim Preserve a(1) '再次分配元素并保留原有元素
a(1) =Y
.........................
.........................
ReDim Preserve a(N) '第N次分配元素并保留原有元素
a(N) =Y
list1.additem j 意思就是把j添加至list1列表中,这是在一个for 循环中，循环了10次，添加了10次 j，即 list1 中 有10列分别为：1,3,6,10,15,21,28,36,45,55
下面又来了一个循环， list1.removeitem 删除列，删除的是 list1.listcount - i ，list1.listcount 就是总列数为10，减去 i ，i 是1到4，即10-1，9-2，8-3，7-4 每减掉一次，list1.listcount 就少了一条记录。
(注意，list1.listcount-1 是最后一条记录)
减掉了第 9，7，5，3列
剩余为 1,3,6,15,28,45
结果为：3,15,28
'ListCount返回列表框中的项目总数
'ListCount-1是列表框中最后一个项目的索引号
'亏你提醒了，我写错了，上面修改了，第一个索引为0，最后一个为9.
'也就是，问题所问的第二列的索引为1，第四列的索引为3...
