LOADING GAME Cách gọn khó Gồm button picturebox load1 load2 Ta thu ngắn tối đa kích thước load2 CODE Public Class Form1 Private Sub tml1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tml1.Tick load1.Visible = True load2.Visible = True load2.Left = load1.Left load2.Top = load1.Top load2.Left += load2.Width += If load2.Left + load2.Width >= Me.load1.ClientRectangle.Width + 80 Then tml1.Stop() End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click tml1.Start() tml1.Enabled = True load1.Visible = True load2.Left = load1.Left load2.Width = True End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click tml1.Enabled = False load1.Visible = False load2.Visible = False tml1.Stop() End Sub End Class Số 80 tương đối để ta làm cho progress chạy tới điểm dừng Ta điều chỉnh giá trị khác chạy trình