主题：动态label怎样实现？

 第一个问题：

试试这样

l.Text= word & str((r.Index+1)/p.Maximum*100) & "%"

Application.DoEvents()

 第二个问题：不能用模式窗口，你可以这样

forms("进度条窗口").Show

forms("进度条窗口").ToMost

LockBaseMainForm

'执行代码

UnLockBaseMainForm

嗯嗯，把代码放到afterload事件。

那就没办法了，模式窗口就是要特殊处理的。