Membuat Loading Secara Simpel VB6

Copas Code Di Bawa Ini Dan masukan ke Dalam VB6 anda

Dim counter
Private Sub Form_Load()
counter = 1
End Sub
Private Sub Timer1_Timer()
counter = counter + 1
Me.ProgressBar1.Value = counter
Me.Label2.Caption = counter & "%"
If counter = 100 Then
MsgBox "Animasi Loading Berjalan Sudah 100%", vbInformation, "Info"
Form2.Show
Form1.Hide
   Me.Timer1.Enabled = False
End If
End Sub

Atau Project Download Now

Terima Kasih Sudah Membaca Artikel Membuat Loading Secara Simpel VB6

NANTIKAN ARTIKEL DARI ROIS PEDIA SECARA GRATIS

Kang Rois - 09.48