Membuat Loading form dengan Progress Bar

Buatlah sebuah form seperti pada gambar diatas dengan 3 buah label, 1 buah Progress Bar, dan 1 Timer

• Langkah pertama klik 2x pada timer , lalu tuliskan script berikut

ProgressBar1.Value += 1

     Label2.Text += 1

     If ProgressBar1.Value = 100 Then

         Timer1.Dispose()

         Me.Visible = False

     End If

• Lalu klik 2x pada form, dan ketikan script berikut

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