vb label 刷新问题，求教高手

VB.NET建立一个窗体，添加标签Label1，其Text属性为“A”，在窗体的Load中加入如下代码：

Private Sub Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Public ExpLabel as System.Windows.Forms.Label
ExpLabel= New Label
ExpLabel.Text="B"
Label1=ExpLabel
End Sub

为什么窗体上的Label1显示为“A”？怎样才能使它显示“B”呢（不通过Label1.Text=ExpLabel.Text赋值)？

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim expLabel As Label
ExpLabel = New Label
ExpLabel.Text = "B"
Label1.Text = ExpLabel.Text
'Label1.Refresh()
End Sub

'如果 expLabel 是全局变量 就不重复定义
'.NET 在这里用Public 似乎编译有些问题

VB.NET没用过，不过你对象间用Label1=ExpLabel这么赋值，一定是不行的

Public ExpLabel As System.Windows.Forms.Label Private Sub Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ExpLabel = New Label ExpLabel.Text = "B" Label1.Text = ExpLabel.Text End Sub

option explicit private sub command1_click() dim i as long for i = 1 to 1000000     doevents     list1.additem i     label1.caption = i  next i end sub