LOADING Thiết kế form sau : Giả sử hình vào game click vào ứng dụng trò chơi có giao diện Vậy loading xong vào trò chơi Nghĩa nút PLAY biến để vào chơi Và bấm exit đóng ứng dụng lại picturebox1 đặt tên load1 làm khung ,load2 làm chạy progress ảnh dung picturebox đưa sau lớp form 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 + 185 Then tml1.Stop() load1.Visible = False load2.Visible = False bplay.Visible = False breset.Visible = False background1.Visible = False End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bplay.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 breset.Click Close() End Sub End Class Số 185 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