Imports System.Windows.Forms

Public Class loadingform
    Private Sub loadingform_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Label4.Visible = False
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Try
            Label1.Text = Val(Label1.Text) + 1
        ProgressBar1.Value = ProgressBar1.Value + 1

        If ProgressBar1.Value = 100 Then
            Timer1.Enabled = False
                Timer1.Stop()

                If Label4.Text = "pcc" Then
                    Label4.Text = ""
                    pco.Show()
                ElseIf Label4.Text = "bcc" Then
                    Label4.Text = ""
                    bccdata.Show()
                ElseIf Label4.Text = "hhl" Then
                    Label4.Text = ""
                    hhldata.Show()
                ElseIf Label4.Text = "dataentry" Then
                    Label4.Text = ""
                    DataEntry.Show()
                ElseIf Label4.Text = "barangay" Then
                    Label4.Text = ""
                    barangaypurok.Show()
                ElseIf Label4.Text = "leaders" Then
                    Label4.Text = ""
                    Call databybrgy.alvarpco()
                ElseIf Label4.Text = "leadersbypurok" Then
                    Label4.Text = ""
                    Call databypurok.alvarpco()
                    Call databypurok.r1bcc()
                    Call databypurok.r1hhl()
                    Call databypurok.remm1()

                    Call databypurok.totalalldatabypurok()
                    Call databypurok.totalremainbypurok()
                    Call databypurok.totalpercentrecbypurok()
                    Call databypurok.perpurokpercentclear()
                ElseIf Label4.Text = "summary" Then
                    Label4.Text = ""
                    'databybrgy.Show()
                    selectsummary.Show()
                ElseIf Label4.Text = "updateVN" Then
                    Label4.Text = ""
                    'databybrgy.Show()
                    'selectsummary.Show()
                ElseIf Label4.Text = "unmarkdecease" Then
                    Label4.Text = ""
                    ' masterlist.unmarkdecease()
                End If
                ProgressBar1.Value = 0
                Label1.Text = 0
                Me.Hide()
            End If

        Catch ex As Exception

        End Try
    End Sub
End Class