Cara Membuat Loading di Vb 2010

Hey sobat semua kali ini saya mau ajarkan kamu cara membuat Form loading di vb 2010

Bahan - bahan :

Label 3 buah
1 Progress Bar
1 Buah Timer

Klik 2x Pada Form, lalu hapus semua codenya, terus masukkan code di bawah ini :

Public Class Form1

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Value += 1

        Label2.Text += 1

        If ProgressBar1.Value = 100 Then

            Timer1.Dispose()

            Me.Visible = False

        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Label1.Text = "LOADING.."
        Label2.Text = 1
        Label3.Text = "%"
        Timer1.Enabled = True

    End Sub
End Class

Semoga bermanfaat :D

Thanks irfansyahp :*