CODE-VB6.BLOGSPOT.COM

DESCRIPTION


This vb sample program using a progress bar is use for loading / splash screen on your small application.
download the full source code below for free then try it on your own. enjoy!


SCREENSHOT




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