13518219792
参考一下下面这段代码：
创新互联是网站建设专家,致力于互联网品牌建设与网络营销，专业领域包括做网站、网站制作、电商网站制作开发、微信小程序定制开发、微信营销、系统平台开发，与其他网站设计及系统开发公司不同，我们的整合解决方案结合了恒基网络品牌建设经验和互联网整合营销的理念，并将策略和执行紧密结合，且不断评估并优化我们的方案，为客户提供全方位的互联网品牌整合方案！
‘ 首先picturebox1 加载一张图像
FolderBrowserDialog1.Description = "选择图片文件夹导入图片"
FolderBrowserDialog1.ShowDialog()
path = FolderBrowserDialog1.SelectedPath()
If path = "" Then Return
strSrcFile = Dir(path "\*.tif")
PictureBox1.Image = Image.FromFile(path "\" strSrcFile)
’ 然后再在picturebox1中用graphic画图而不清空原图像
' 建立一个画图对象
Dim g As Graphics = Me.PictureBox1.CreateGraphics
‘ 定义画笔
Dim myPen As System.Drawing.Pen = New System.Drawing.Pen(Color.Blue)
’ 画出矩形框并且填充颜色（颜色保持50%的透明度，使得下面原来的图片背景能看得到）
g.DrawRectangle(myPen, New System.Drawing.Rectangle(50, 50, 30, 20))
g.FillRectangle(New SolidBrush(Color.FromArgb(50, Color.YellowGreen)), New System.Drawing.Rectangle(50, 50, 30, 20))
' 最后释放画图对象
g.Dispose()
效果大致如下图所示：
VB.NET里所有的类都直接或间接派生自Object类，它是完全面向对象的，使用的所有方法，属性都是由相应对象提供，所以，所有的都是对象。
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...
人类是一个类，你是人，我是人，都是人类的实例(instance)，或称对象(object)。一个类描述一类事物，描述这些事物所应具有的属性，如人有身长、体重、文化程度、性别、年龄、民族等。
一个对象是类的一个实例，它具有确定的属性，如张三(人的实例)身高180，体重70公斤，大学本科，男，21岁，汉族。
人类只有一个，人类的实例可以有无数个。
对象可以被创建和销毁，但类是无所不在的。
例如，桌子是一个类， 人们不断打造各种尺寸和风格(属性)的桌子(桌子的实例)，打造桌子， 又不断毁坏桌子，年复一年，旧的去了，新的又来，但桌子的概念没变，它是一个抽象的概念。应该称它为桌子类，以区别于打造的具体桌子。
在.NET中，对象和结构还是有些不同的，定义方式也是其中之一。
像整型、字符串和一些数值类型都属于结构。结构只需要这样定义就可以了：
Dim str As String
系统自动分配内存，然后就可以对它进行访问了。
如果像这样声明普通类：
Dim cla As Class
此时直接访问cla类成员会引发一个null异常。因为你仅仅声明了cla的类型（cla是Class类型的），而内存中没有一个真正的对象（类的实例）。如果你需要一个实例，就需要用New关键字，例如：
Dim cla As New Class("some words")
这时系统会建立一个Class对象，并将cla指向这个对象。这样就完成了一次实例化。这时就可以直接访问cla的成员了。
在实例化时，系统会调用对象的New函数，即构造函数。后面括号里的内容并不是对象的属性，而是要传递给这个构造函数的参数。至于对象的构造函数是否需要参数、需要多少参数以、参数的类型及重载情况等，取决于要实例化的类型。
上面的Class只是例子，代换成实际的类即可。
你只是定义了一个对象，类而已
首先要给对象设置变量，这个还不是数组
Public class As Single的class 应该是关键字请换一个名字
Dim KidsX(1 to 100) as kids
KidsX(1).classx=1
KidsX(1).grade=1
KidsX(1).name=”张某"
KidsX(2).classx=1
KidsX(2).grade=2
KidsX(2).name=”王某"
……
