Public Class SplashPage
    Private Sub SplashPage_Activated(sender As Object, e As EventArgs) Handles Me.Activated
        Dim fileReader As System.IO.StreamReader
        fileReader = My.Computer.FileSystem.OpenTextFileReader("CheckedBox.txt")
        Dim stringReader As String
        stringReader = fileReader.ReadLine()
        If stringReader = "Checked" Then
            Dim A = New Store()
            A.Show()
            Me.Close()
        Else
            Dim B = New MainWindow()
            B.Show()
            Me.Close()
        End If
    End Sub
End Class