Imports System.Threading
Imports System.Net.NetworkInformation
Public Class CProgram
 
    <STAThread()>
    Public Shared Sub Main(ByVal args As String())
 
        Application.SetCompatibleTextRenderingDefault(False)
 
        Dim splash As New vSplashscreen
        Dim StartupStep() As String = {"Check for Network Availability...", _
          "Test 2", "Test 3"}
        Dim ctrl As New CSplashscreenController(splash)
        Dim app As CApplication = New CApplication()
 
        splash.Show()
 
        Application.DoEvents()
 
        Try
 
            NetworkInterface.GetIsNetworkAvailable()
            ctrl.UpdateProgress(StartupStep(0))
            Thread.Sleep(4000)
 
            ctrl.UpdateProgress(StartupStep(1))
            Thread.Sleep(6000)
 
            ctrl.UpdateProgress(StartupStep(2))
            Thread.Sleep(2000)
 
        Catch ex As Exception
 
            MessageBox.Show("Network is not available")
 
        End Try
 
        splash.Close()
 
        Application.EnableVisualStyles()
        CApplication.app.Run(args)
 
    End Sub 'Main
 
End Class 'CProgram