Pass

Imports System.IO
Public Class Form1
    Dim appPath As String = Application.StartupPath()
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        SplashScreen.BarLong(100)
        Dim i As Integer = 0
        While i <= 100
            SplashScreen.ShowBar(i)
            i += 1
            Threading.Thread.Sleep(15)
        End While

    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Main.Show()
        Me.Hide()
    End Sub

End Class