主题：如何刷新界面的上的内容？

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=152101&authorid=0&page=0&star=1

我按照这个帖子里面的做了一个等待界面。但是我想定期刷新里面的内容，请问怎么做？

代码是

Public delimgng As image =GetImage("bei.png")

Private waitMess As New System.Windows.Forms.Form()

Private sFlog As Boolean = True
Private Sub ShowWaitMess()
Dim waitMesspic As New System.Windows.Forms.PictureBox()
Dim waitMesspic2 As New System.Windows.Forms.TextBox()
waitMesspic.Image = System.Drawing.Image.FromFile(ProjectPath & "Images\timg2.gif")
waitMesspic.Dock = System.Windows.Forms.DockStyle.fill
waitMesspic.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom

waitMesspic2.text=Vars("loadingtext")  我想定期刷新这个，而Vars("loadingtext") 是在内部函数里面变化。
waitMesspic2.AutoSize=True
waitMesspic2.BackColor = Color.white
waitMesspic2.top = 70
waitMesspic2.left = 40
waitMesspic2.Font = new Font("weiruanyahei",10.25,FontStyle.Regular)

waitMess.Controls.Add(waitMesspic2)
waitMess.Controls.Add(waitMesspic)
waitMesspic2.BringToFront()

waitMess.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
waitMess.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
waitMess.TransparencyKey = Color.red
waitMess.OPacity = 0.9
waitMess.Width = 328  '固定大小
waitMess.Height = 120

Try
    If Not waitMess.IsDisposed Then
        waitMess.ShowDialog()
    End If
Catch Err As System.Threading.ThreadAbortException
    MessageBox.Show(Err.Message)
End Try
End Sub

那帮忙看看thread 能不能sleep几秒钟后重新刷新窗口？此时loadingtext已经在主线程变化。

代码怎么改？

Public Sub WaitShow()
Try
    If sFlog = True Then
        sFlog = False
        Dim upgradeThread As System.Threading.Thread = Nothing
        upgradeThread = New System.Threading.Thread(New System.Threading.ThreadStart(AddressOf ShowWaitMess))
        upgradeThread.Start()

upgradeThread.sleep(3000)

waitMess刷新？

    End If
Catch Err As System.Threading.ThreadAbortException
    MessageBox.Show(Err.Message)
End Try
End Sub

试了好几个方式，都不会搞。timer也貌似有问题不知道怎么处理，

如果用do loop消耗太大直接卡死

Try
    If Not waitMess.IsDisposed Then
        waitMess.ShowDialog()

do loop 修改lable 的值，没法做到每几秒更新一次，要么直接卡死。

试了timer，不会用。

    End If
Catch Err As System.Threading.ThreadAbortException
    MessageBox.Show(Err.Message)
End Try
End Sub