LOADING GAME Giao diện gồm thành phần sau: picturebox progress từ ngắn đến dài.:load2,load3,load4,load5,load6 Ta xếp chồng lên vào khung picturebox load1 button play reset CODE Public Class Form1 Dim x As Integer = 256 Private Sub tmload1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmload1.Tick load1.Visible = True load2.Visible = True load2.Left = load1.Left load2.Left += load2.Width += If load2.Left = x / Then load2.Left += load3.Visible = True End If If load2.Left = x / Then load2.Left += load4.Visible = True End If If load2.Left = x / Then load2.Left += load5.Visible = True End If If load2.Left + load2.Width >= x Then tmload1.Stop() load6.Visible = True End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click tmload1.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 tmload1.Enabled = False load1.Visible = False load2.Visible = False load3.Visible = False load4.Visible = False load5.Visible = False load6.Visible = False End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load tmload1.Enabled = False End Sub End Class