Free Programming Tutorials & Source Code

Here is a simple example of how progressbar works. First, create a form, and name it as frmSplash. Add a timer, a progressbar, and a label. Name the timer as Tr, and set the internal to 1000 (1 second) Name the progress bar as pb. Name the label as lbl. Create another form, and name it as frmMain. Now, open the frmsplash, and write the following code to enable the timer:

 
   Private Sub Form1_Load(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles MyBase.Load
    tr.Enabled = True

   End Sub
 

Then, add this code to when the timer tricks:

 
   Private Sub tr_Tick(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles tr.Tick

    pb.Value += 5

    If pb.Value <= 40 Then
        lbl.Text = "Initializing....."
    ElseIf pb.Value <= 60 Then
        lbl.Text = "Loading personal settings....."
    ElseIf pb.Value <= 80 Then
        lbl.Text = "Connecting to Database...."
    ElseIf pb.Value <= 100 Then
        lbl.Text = "Connection established..."
    End If

      If pb.Value = 100 Then
        tr.Dispose()
        Me.Visible = False
 
   nfrmMain = New frmMain()
   nfrmMain .Show()
      End If

   End Sub

Run the program. You can choose to start a main form after this splash, or a login form.