Splash.vb

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    ProgressBar1.Increment(1)
    If ProgressBar1.Value = 100 Then
        Timer1.Stop()
        main_login.Show()
        Me.Hide()
    End If
    Label1.Text = ProgressBar1.Value & (" %")
End Sub

Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click

End Sub

End Class