NEA/SplashPage.xaml.vb

   1 Public Class SplashPage
   2     Private Sub SplashPage_Activated(sender As Object, e As EventArgs) Handles Me.Activated
   3         Dim fileReader As System.IO.StreamReader
   4         fileReader = My.Computer.FileSystem.OpenTextFileReader("CheckedBox.txt")
   5         Dim stringReader As String
   6         stringReader = fileReader.ReadLine()
   7         If stringReader = "Checked" Then
   8             Dim A = New Store()
   9             A.Show()
  10             Me.Close()
  11         Else
  12             Dim B = New MainWindow()
  13             B.Show()
  14             Me.Close()
  15         End If
  16     End Sub
  17 End Class