报什么错?
If arys.Count > 0 Then p.Visible = True p.Maximum = arys.Count - 1 '设置最大值 p.Minimum = 0 '设置最小值 p.Value = 0 '设置当前值End If