在线等待-50分 form的tag属性是什么啊
===============================================================返回或设置一个表达式用来存储程序中需要的额外数据。与其它属性不同，Tag 属性值不被 Visual Basic 使用；可以用该属性来标识对象。
语法
object.Tag [= expression]
Tag 属性语法包含下面部分：
部分 描述object 对象表达式，其值是“应用于”列表中的一个对象。
expression 字符串表达式用来标识对象，缺省值为零长度字符串 ("")。
说明
利用该属性可以给对象赋予一个标识字符串，而不会影响其任何其它属性设置值或引起副作用。当需要检查控件或作为变量传递给过程的 MDIForm 对象的标识时，Tag 属性是有用的。
提示 创建一个新的窗口实例时，给 Tag 属性赋予唯一值。
===============================================================返回或设置一个表达式用来存储程序中需要的额外数据。与其它属性不同，Tag 属性值不被 Visual Basic 使用；可以用该属性来标识对象。
语法
object.Tag [= expression]
Tag 属性语法包含下面部分：
部分 描述object 对象表达式，其值是“应用于”列表中的一个对象。
expression 字符串表达式用来标识对象，缺省值为零长度字符串 ("")。
说明
利用该属性可以给对象赋予一个标识字符串，而不会影响其任何其它属性设置值或引起副作用。当需要检查控件或作为变量传递给过程的 MDIForm 对象的标识时，Tag 属性是有用的。
提示 创建一个新的窗口实例时，给 Tag 属性赋予唯一值。
这个例子为每个被拖动的控件显示一个单独的图标。要尝试这个例子，请将代码粘贴到包含三个 PictureBox 控件的窗体的声明部分。将 Picture1 和 Picture2 的 DragMode 属性设置为一，然后按 F5 键。使用鼠标在 Picture3 上面拖曳 Picture1 和 Picture2。Private Sub Form_Load ()
Picture1.Tag = "ICONS\ARROWS\POINT03.ICO"
Picture2.Tag = "ICONS\ARROWS\POINT04.ICO"
End SubPrivate Sub Picture3_DragOver (Source As Control, X As Single, Y As Single, State As Integer)
If State = vbEnter Then
' 根据每个图片框的 Name 属性选择。
Select Case Source.Name
Case "Picture1"
' 加载 Picture1 的图标。
Source.DragIcon = LoadPicture(Picture1.Tag) Case "Picture2"
' 加载 Picture2 的图标。
Source.DragIcon = LoadPicture(Picture2.Tag)
End Select
ElseIf State = vbLeave Then
' 当 Source 不在 Picture3 之上时，卸载图标。
Source.DragIcon = LoadPicture ()
End If
End Sub
http://www.csdn.net/expert/topic/701/701403.xml?temp=.7961542