การทำ status bar แสดงสถานะว่ากำลัง load ข้อมูลอยู่ต้องเขียนแบบใหนหรอครับ

'ต้องมี YourProgressbar ก่อนนะครับ
            Dim DA As New SqlDataAdapter("Select * from YourTable", YourConnection) 
           	Dim DT As New DataTable
            DA.Fill(DT)
            If DT.Rows.Count <> 0 Then
                Dim iProgress As Integer = 0
                Dim iPercent As Integer = 0
                YourProgressbar.Value = 0
                For i As Integer = 0 To DT.Rows.Count - 1
	    'คำสั่งที่อยากให้ทำในขณะที่วนแต่ละเร็คคอร์ด
	    'some statement ............
										
										
                    iProgress = iProgress + 1
                    iPercent = CInt(iProgress * 100 / DT.Rows.Count)
                    YourProgressbar.Value = iPercent
                    lblStatus.Text = "Loading database " & iPercent.ToString() & "%"
                    Application.DoEvents()
                Next

            End If