Tutorial Visual Basic -Make Loading Splash Screen Using Progress Bar

Berikut source code nya semoga bermanfaat bagi kalian yang membaca
CODE

Option Explicit

Private Sub Form_Load()
Timer1.Enabled = True
Timer1_Timer
End Sub

Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value + 10
If ProgressBar1.Value = 80 Then
ProgressBar1.Value = ProgressBar1 + 20

If ProgressBar1.Value >= ProgressBar1.Max Then
Timer1.Enabled = False
End If
‘In this are you may call the form to be loaded next!
MsgBox “Loading Complete!”, vbInformation, “Info”
Unload Me
End If
End Sub

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s