Membuat animasi Loading DI vb.6.0

Pertama-tama bikin seperti ini :

 lalu :

coding nya : 

Private Sub Timer1_Timer()

If ProgressBar1.Value >= 100 Then

Unload Me

Else

ProgressBar1.Value = ProgressBar1.Value + 10

End If

End Sub

hasilnya gan :