[Tips]Cara membuat form loading di VisualBasic 6.0

Share dikit tentang buat form loading VisualBasic 6.0

Component :
-2 Form (Form1 & Form2)
-1 Timer (Timer1)
-1 ProgressBar (ProgressBar1)
-1 Command Button (Command1)

Sekarang,tinggal copy code di bwh ke Form1


Option Explicit

Private Sub Command1_Click()
Timer1.Interval = 1
If ProgressBar1.Value = 100 Then
Form2.Show
Unload Me
End If
End Sub

Private Sub Form_Load()
Command1.Caption = "Test"
End Sub

Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value + 10
End Sub


Semoga bermanfaat