Class MainWindow
    Private Sub BtnLogIn_Click(sender As Object, e As RoutedEventArgs) Handles btnLogIn.Click
        Dim ds As New NEADataSet
        Dim dr As System.Data.DataRow
        Dim da As New NEADataSetTableAdapters.UsersTableAdapter
        Dim dt As System.Data.DataTable
        dt = ds.Tables("Users")
        da.fill(dt)
        For Each dr In dt.Rows
            If String.Compare(dr("Username"), txtUserName.Text) = 0 And String.Compare(dr("Password"), txtPassword.Text) = 0 Then
                If chkRememberMe.IsChecked = True Then
                    Dim file As System.IO.StreamWriter
                    file = My.Computer.FileSystem.OpenTextFileWriter("CheckedBox.txt", True)
                    file.WriteLine("Checked")
                    file.Close()
                    Dim A = New Store()
                    A.Show()
                    Me.Close()
                Else
                    Dim A = New Store()
                    A.Show()
                    Me.Close()
                End If
                GoTo LineBreak
            End If
        Next
        MsgBox("Your username or password is incorrect!", vbExclamation)
LineBreak:
        ds.Dispose()
    End Sub

    Private Sub BtnSignUp_Click(sender As Object, e As RoutedEventArgs) Handles btnSignUp.Click
        Dim A = New Signup()
        A.show()
        Me.Close()
    End Sub

End Class