Custom Progress Bar in Splash Screen using Visual Basic 6.0-Tutorial Upd...

How you can build a customized Progress Bar in Splash screen using Visual Basic 6.0.
Video Demonstration focused on following parts
*How to develop a splash screen using VB.
*How to adjust the splash screen in the middle of the computer screen.so that it looks nice when splash screen is loading.
*Finally Customized Progress Bar using Visual Basic.
#How to design the progress bar first.
#How to change the properties of different controls used in Progress Bar.
#How to add code to make your progress bar functional .
For your more convenience ,i am adding the source code of the entire project here .
Source code for adjust the screen in the middle. and Source code for Progress Bar which must be written under Timer Control function.Click the file to download:
https://www.mediafire.com/?05ybjjl4n1r48l1

Dim ctr, ctr2, r As Double
Dim ctr3 As String
'ADJUST THE SCREEN IN THE MIDDLE
Private Sub Form_Load()
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
End Sub

'SOURCE CODE CUSTOM PROGRESS BAR UNDER TIMER CONTROL

Private Sub Timer1_Timer()
ctr = 0
If ctr2 <= 100 Then
    Randomize
    r = Int((200 - 100 + 1) * Rnd + 100)
    ctr = r / 50
    ctr = Round(ctr, 0)
    ctr = ctr2 + ctr
    ctr3 = Str(ctr)
        If ctr >= 100 Then
             Percentage.Caption = "100%"
             shpProgress.Width = 5000
             Login.Show
             Unload Me
        Else
             shpProgress.Width = shpProgress.Width + r
             Percentage.Caption = (ctr3) + "%"
             ctr2 = Int(ctr3)
        End If
End If

End Sub

Please Like and Share,Commets :-) ..
Subscribe the Channel...