Private Sub SplashScreen1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
 
 
        ' ''Try
        ' ''    If PrevInstance() Then
        ' ''        'Application.Exit()
        ' ''    Else
        ' ''        '    Main.Show()
 
 
 
 
        Dim regKey(1) As Microsoft.Win32.RegistryKey
        regKey(0) = My.Computer.Registry.CurrentUser.OpenSubKey("Software\Adobe", False)
        regKey(1) = My.Computer.Registry.LocalMachine.OpenSubKey("SOFTWARE\Adobe", False)
        Dim paths As New List(Of String)
        For idx As Integer = 0 To 1
            If regKey(idx) IsNot Nothing Then
                paths.AddRange(regKey(idx).GetSubKeyNames())
            End If
        Next
        Dim path As String
        Dim installed As Boolean = False
        For Each path In paths
            If path = "Acrobat Reader" Or path = "Acrobat" Or path = "Adobe Acrobat" Then
                installed = True
            End If
        Next
        If regKey(0) IsNot Nothing Then
            regKey(0).Close()
        End If
        If regKey(1) IsNot Nothing Then
            regKey(1).Close()
        End If
        'regKey(0).Close()
        'regKey(1).Close()
        If installed Then
            myTimer = New Timer
            myTimer.Interval = 2000
            myTimer.Enabled = True
            AddHandler myTimer.Tick, AddressOf DoTimerWork
        Else
            If MessageBox.Show("Adobe Acrobat Reader is not installed, would you like to install now?", "Acrobat Reader", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
                System.Diagnostics.Process.Start("Documentation\Setup.exe")
                End
            Else
                myTimer = New Timer
                myTimer.Interval = 2000
                myTimer.Enabled = True
                AddHandler myTimer.Tick, AddressOf DoTimerWork
            End If
        End If
 
        ' ''    End If
 
        ' ''Catch ex As Exception
 
        ' ''End Try
    End Sub

Private Sub SplashScreen1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim regKey(1) As Microsoft.Win32.RegistryKey
        regKey(0) = My.Computer.Registry.CurrentUser.OpenSubKey("Software\Adobe", False)
        regKey(1) = My.Computer.Registry.LocalMachine.OpenSubKey("SOFTWARE\Adobe", False)
        Dim paths As New List(Of String)
        For idx As Integer = 0 To 1
            If regKey(idx) IsNot Nothing Then
                paths.AddRange(regKey(idx).GetSubKeyNames())
            End If
        Next
        Dim path As String
        Dim installed As Boolean = False
        For Each path In paths
            If path = "Acrobat Reader" Or path = "Acrobat" Or path = "Adobe Acrobat" Then
                installed = True
            End If
        Next
        If regKey(0) IsNot Nothing Then
            regKey(0).Close()
        End If
        If regKey(1) IsNot Nothing Then
            regKey(1).Close()
        End If
       If installed Then
            myTimer = New Timer
            myTimer.Interval = 2000
            myTimer.Enabled = True
            AddHandler myTimer.Tick, AddressOf DoTimerWork
        Else
            If MessageBox.Show("Adobe Acrobat Reader is not installed, would you like to install now?", "Acrobat Reader", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
                System.Diagnostics.Process.Start("Documentation\Setup.exe")
                End
            Else
                myTimer = New Timer
                myTimer.Interval = 2000
                myTimer.Enabled = True
                AddHandler myTimer.Tick, AddressOf DoTimerWork
            End If
        End If
   End Sub
 
 
Private Sub DoTimerWork(ByVal sender As Object, ByVal e As System.EventArgs)
        ' Stops the timer
        Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=test.mdb")
        Dim reader As OleDbDataReader
        myTimer.Enabled = False
        conn.Open()
        Dim query As String = "SELECT * FROM users"
        Dim cmd As OleDbCommand = New OleDbCommand(query, conn)
        reader = cmd.ExecuteReader(CommandBehavior.CloseConnection)
              If reader.HasRows Then
            LoginUser.ShowDialog()
        Else
            Mainform.Show()
        End If
       Me.Close()
    End Sub