Đôi khi, để chờ chương trình làm việc và biết chương trình đang xử lý đến đâu, bạn có thể thiết kế thêm vào form như sau:
Vẽ 2 box (Box1, Box2)
Vẽ 1 text (Tyle)
Chọn Back color cho box1
Tạo cmd xử lí (Ví dụ cmd1)
ở sự kiện click
Dim i As Long
Box2.Visible = True
Box1.Visible = True
Tyle.Visible = True
Box1.Top = Box2.Top
Box1.Left = Box2.Left
Box1.Height = Box2.Height
i = 1
Box1.Width = (Box2.Width) * i / 3
Tyle.Value = 100 * (i / 3)
Me.Requery
Me.Refresh
Me.Repaint
Sleep (1000) ' thuc hien lenh 1
i = 2
Box1.Width = (Box2.Width) * i / 3
Tyle.Value = 100 * (i / 3)
Me.Requery
Me.Refresh
Me.Repaint
Sleep (1000) ' Thuc hien lenh 2
i = 3
Box1.Width = (Box2.Width) * i / 3
Tyle.Value = 100 * (i / 3)
Me.Requery
Me.Refresh
Me.Repaint
Sleep (1000) ' thuc hien lenh 3
......
MsgBox "Xong roi"
Box2.Visible = False
Box1.Visible = False
Tyle.Visible = False
demo