ถามเรื่อง progressbar จะทำอย่างไงให้แสดงตัวเลขการนับจาก 1 ถึง 100 อ่ะครับ

TotalRows = dtable.Rows.Count
pgbExcel.Minimum = 0
pgbExcel.Maximum = dtable.Rows.Count - 1
ProgressBar1.Value = 0
For i = 0 To dtable.Rows.Count - 1
'ส่วนของคำสั่ง
Dim ProcessNum As Integer
ProcessNum = (100 * i) / TotalRows
Me.Text = "Kholer Performance  " & FormatNumber(ProcessNum, 0) & " %"
pgbExcel.Value = i
Next