主题：动态label怎样实现？

如下以代码：

forms("进度条窗口").Show
If forms("进度条窗口").Opened Then
    Dim p As WinForm.ProgressBar=Forms("进度条窗口"). Controls("ProgressBar1")
    Dim l As WinForm.Label =Forms("进度条窗口"). Controls("Label1")
    Dim word As String=l.text
    Dim t As Table=Tables("表目录")
    '''
    p.Minimum = 0 '设置最小值
    p.Maximum = t.Rows.count '设置最大值
   
    For Each r As Row In t
        r("顺序号")=r.Index+1
        '    t.Position=r.Index
        r.DataRow.Save
        p.Value = r.Index  '设置当前值
        l.Text=word & str(r.Index+1/p.Maximum*100) & "%"
    Next
    Forms("进度条窗口").Close
End If

Functions.Execute("刷新导航页签")

1、如红字部分，想实现动态的百分比变化，但是实际效果是压根显示不出来，进度条的进程比较正常！怎么解决呀？

2、另外展示进度条的窗口如果用成模式窗口就不动了，若是用成独立窗口，又担心任务进展未完成时用户进行别的操作，该如何解决呀？