Imports System.IO

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim File As New FileStream("users.txt", FileMode.OpenOrCreate, FileAccess.ReadWrite, FileShare.ReadWrite)
        Dim FileData As New IO.StreamWriter(File)
        If Me.CheckBox1.Checked.Equals(True) Then
            If Me.RadioButton1.Checked Then
                FileData.WriteLine(Me.TextBox1.Text & "," & "add," & "FileSystemRights." & Me.CheckBox1.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
            ElseIf Me.RadioButton2.Checked Then
                FileData.WriteLine(Me.TextBox1.Text & "," & "remove," & "FileSystemRights." & Me.CheckBox1.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
            Else
                MessageBox.Show("Please choose Add or Remove")
            End If
            If Me.TextBox1.Text = Nothing Or Me.TextBox2.Text = Nothing Or Me.TextBox3.Text = Nothing Then
                MessageBox.Show("Please fill in all the the boxes")

            End If
        End If

        If Me.CheckBox2.Checked.Equals(True) Then
            If Me.RadioButton1.Checked Then
                FileData.WriteLine((Me.TextBox1.Text & "," & "add," & "FileSystemRights." & Me.CheckBox2.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\"))
            ElseIf Me.RadioButton2.Checked Then
                FileData.WriteLine(Me.TextBox1.Text & "," & "remove," & "FileSystemRights." & Me.CheckBox2.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")

            Else
                MessageBox.Show("Please choose Add or Remove")

            End If
            If Me.TextBox1.Text = Nothing Or Me.TextBox2.Text = Nothing Or Me.TextBox3.Text = Nothing Then
                MessageBox.Show("Please fill in all the the boxes")

            End If
        End If



        If Me.CheckBox3.Checked.Equals(True) Then
            If Me.RadioButton1.Checked Then
                FileData.WriteLine(Me.TextBox1.Text & "," & "add," & "FileSystemRights." & Me.CheckBox3.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
            ElseIf Me.RadioButton2.Checked Then
                FileData.WriteLine(Me.TextBox1.Text & "," & "remove," & "FileSystemRights." & Me.CheckBox3.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")

            Else
                MessageBox.Show("Please choose Add or Remove")

            End If
            If Me.TextBox1.Text = Nothing Or Me.TextBox2.Text = Nothing Or Me.TextBox3.Text = Nothing Then
                MessageBox.Show("Please fill in all the the boxes")

            End If
        End If


        If Me.CheckBox4.Checked.Equals(True) Then
            If Me.RadioButton1.Checked Then
                FileData.WriteLine(Me.TextBox1.Text & "," & "add," & "FileSystemRights." & Me.CheckBox4.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
            ElseIf Me.RadioButton2.Checked Then
                FileData.WriteLine(Me.TextBox1.Text & "," & "remove," & "FileSystemRights." & Me.CheckBox4.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")

            Else
                MessageBox.Show("Please choose Add or Remove")

            End If
            If Me.TextBox1.Text = Nothing Or Me.TextBox2.Text = Nothing Or Me.TextBox3.Text = Nothing Then
                MessageBox.Show("Please fill in all the the boxes")

            End If
        End If


        If Me.CheckBox5.Checked.Equals(True) Then
            If Me.RadioButton1.Checked Then
                FileData.WriteLine(Me.TextBox1.Text & "," & "add," & "FileSystemRights." & Me.CheckBox5.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
            ElseIf Me.RadioButton2.Checked Then
                FileData.WriteLine(Me.TextBox1.Text & "," & "remove," & "FileSystemRights." & Me.CheckBox5.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")

            Else
                MessageBox.Show("Please choose Add or Remove")

            End If
            If Me.TextBox1.Text = Nothing Or Me.TextBox2.Text = Nothing Or Me.TextBox3.Text = Nothing Then
                MessageBox.Show("Please fill in all the the boxes")

            End If
        End If


        If Me.CheckBox6.Checked.Equals(True) Then
            If Me.RadioButton1.Checked Then
                FileData.WriteLine(Me.TextBox1.Text & "," & "add," & "FileSystemRights." & Me.CheckBox6.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
            ElseIf Me.RadioButton2.Checked Then
                FileData.WriteLine(Me.TextBox1.Text & "," & "remove," & "FileSystemRights." & Me.CheckBox6.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")

            Else
                MessageBox.Show("Please choose Add or Remove")

            End If
            If Me.TextBox1.Text = Nothing Or Me.TextBox2.Text = Nothing Or Me.TextBox3.Text = Nothing Then
                MessageBox.Show("Please fill in all the the boxes")

            End If
        End If


        If Me.CheckBox7.Checked.Equals(True) Then
            If Me.RadioButton1.Checked Then
                FileData.WriteLine(Me.TextBox1.Text & "," & "add," & "FileSystemRights." & Me.CheckBox7.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
            ElseIf Me.RadioButton2.Checked Then
                FileData.WriteLine(Me.TextBox1.Text & "," & "remove," & "FileSystemRights." & Me.CheckBox7.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")

            Else
                MessageBox.Show("Please choose Add or Remove")

            End If
            If Me.TextBox1.Text = Nothing Or Me.TextBox2.Text = Nothing Or Me.TextBox3.Text = Nothing Then
                MessageBox.Show("Please fill in all the the boxes")

            End If
        End If


        If Me.CheckBox8.Checked.Equals(True) Then
            If Me.RadioButton1.Checked Then
                FileData.WriteLine(Me.TextBox1.Text & "," & "add," & "FileSystemRights." & Me.CheckBox8.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
            ElseIf Me.RadioButton2.Checked Then
                FileData.WriteLine(Me.TextBox1.Text & "," & "remove," & "FileSystemRights." & Me.CheckBox8.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")

            Else
                MessageBox.Show("Please choose Add or Remove")

            End If
            If Me.TextBox1.Text = Nothing Or Me.TextBox2.Text = Nothing Or Me.TextBox3.Text = Nothing Then
                MessageBox.Show("Please fill in all the the boxes")

            End If
        End If


        If Me.CheckBox9.Checked.Equals(True) Then
            If Me.RadioButton1.Checked Then
                FileData.WriteLine(Me.TextBox1.Text & "," & "add," & "FileSystemRights." & Me.CheckBox9.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
            ElseIf Me.RadioButton2.Checked Then
                FileData.WriteLine(Me.TextBox1.Text & "," & "remove," & "FileSystemRights." & Me.CheckBox9.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")

            Else
                MessageBox.Show("Please choose Add or Remove")

            End If
            If Me.TextBox1.Text = Nothing Or Me.TextBox2.Text = Nothing Or Me.TextBox3.Text = Nothing Then
                MessageBox.Show("Please fill in all the the boxes")

            End If
        End If


        If Me.CheckBox10.Checked.Equals(True) Then
            If Me.RadioButton1.Checked Then
                FileData.WriteLine(Me.TextBox1.Text & "," & "add," & "FileSystemRights." & Me.CheckBox10.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
            ElseIf Me.RadioButton2.Checked Then
                FileData.WriteLine(Me.TextBox1.Text & "," & "remove," & "FileSystemRights." & Me.CheckBox10.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")

            Else
                MessageBox.Show("Please choose Add or Remove")

            End If
            If Me.TextBox1.Text = Nothing Or Me.TextBox2.Text = Nothing Or Me.TextBox3.Text = Nothing Then
                MessageBox.Show("Please fill in all the the boxes")

            End If
        End If


        If Me.CheckBox11.Checked.Equals(True) Then
            If Me.RadioButton1.Checked Then
                FileData.WriteLine(Me.TextBox1.Text & "," & "add," & "FileSystemRights." & Me.CheckBox11.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
            ElseIf Me.RadioButton2.Checked Then
                FileData.WriteLine(Me.TextBox1.Text & "," & "remove," & "FileSystemRights." & Me.CheckBox11.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")

            Else
                MessageBox.Show("Please choose Add or Remove")

            End If
            If Me.TextBox1.Text = Nothing Or Me.TextBox2.Text = Nothing Or Me.TextBox3.Text = Nothing Then
                MessageBox.Show("Please fill in all the the boxes")

            End If
        End If


        If Me.CheckBox12.Checked.Equals(True) Then
            If Me.RadioButton1.Checked Then
                FileData.WriteLine(Me.TextBox1.Text & "," & "add," & "FileSystemRights." & Me.CheckBox12.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
            ElseIf Me.RadioButton2.Checked Then
                FileData.WriteLine(Me.TextBox1.Text & "," & "remove," & "FileSystemRights." & Me.CheckBox12.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")

            Else
                MessageBox.Show("Please choose Add or Remove")

            End If
            If Me.TextBox1.Text = Nothing Or Me.TextBox2.Text = Nothing Or Me.TextBox3.Text = Nothing Then
                MessageBox.Show("Please fill in all the the boxes")

            End If
        End If


        If Me.CheckBox13.Checked.Equals(True) Then
            If Me.RadioButton1.Checked Then
                FileData.WriteLine(Me.TextBox1.Text & "," & "add," & "FileSystemRights." & Me.CheckBox13.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
            ElseIf Me.RadioButton2.Checked Then
                FileData.WriteLine(Me.TextBox1.Text & "," & "remove," & "FileSystemRights." & Me.CheckBox13.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")

            Else
                MessageBox.Show("Please choose Add or Remove")

            End If
            If Me.TextBox1.Text = Nothing Or Me.TextBox2.Text = Nothing Or Me.TextBox3.Text = Nothing Then
                MessageBox.Show("Please fill in all the the boxes")

            End If
        End If


        If Me.CheckBox14.Checked.Equals(True) Then
            If Me.RadioButton1.Checked Then
                FileData.WriteLine(Me.TextBox1.Text & "," & "add," & "FileSystemRights." & Me.CheckBox14.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
            ElseIf Me.RadioButton2.Checked Then
                FileData.WriteLine(Me.TextBox1.Text & "," & "remove," & "FileSystemRights." & Me.CheckBox14.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")

            Else
                MessageBox.Show("Please choose Add or Remove")

            End If
            If Me.TextBox1.Text = Nothing Or Me.TextBox2.Text = Nothing Or Me.TextBox3.Text = Nothing Then
                MessageBox.Show("Please fill in all the the boxes")

            End If
        End If


        If Me.CheckBox15.Checked.Equals(True) Then
            If Me.RadioButton1.Checked Then
                FileData.WriteLine(Me.TextBox1.Text & "," & "add," & "FileSystemRights." & Me.CheckBox15.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
            ElseIf Me.RadioButton2.Checked Then
                FileData.WriteLine(Me.TextBox1.Text & "," & "remove," & "FileSystemRights." & Me.CheckBox15.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")

            Else
                MessageBox.Show("Please choose Add or Remove")

            End If
            If Me.TextBox1.Text = Nothing Or Me.TextBox2.Text = Nothing Or Me.TextBox3.Text = Nothing Then
                MessageBox.Show("Please fill in all the the boxes")

            End If
        End If


        If Me.CheckBox16.Checked.Equals(True) Then
            If Me.RadioButton1.Checked Then
                FileData.WriteLine(Me.TextBox1.Text & "," & "add," & "FileSystemRights." & Me.CheckBox16.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
            ElseIf Me.RadioButton2.Checked Then
                FileData.WriteLine(Me.TextBox1.Text & "," & "remove," & "FileSystemRights." & Me.CheckBox16.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")

            Else
                MessageBox.Show("Please choose Add or Remove")

            End If
            If Me.TextBox1.Text = Nothing Or Me.TextBox2.Text = Nothing Or Me.TextBox3.Text = Nothing Then
                MessageBox.Show("Please fill in all the the boxes")

            End If
        End If


        If Me.CheckBox17.Checked.Equals(True) Then
            If Me.RadioButton1.Checked Then
                FileData.WriteLine(Me.TextBox1.Text & "," & "add," & "FileSystemRights." & Me.CheckBox17.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
            ElseIf Me.RadioButton2.Checked Then
                FileData.WriteLine(Me.TextBox1.Text & "," & "remove," & "FileSystemRights." & Me.CheckBox17.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")

            Else
                MessageBox.Show("Please choose Add or Remove")

            End If
            If Me.TextBox1.Text = Nothing Or Me.TextBox2.Text = Nothing Or Me.TextBox3.Text = Nothing Then
                MessageBox.Show("Please fill in all the the boxes")

            End If
        End If


        If Me.CheckBox18.Checked.Equals(True) Then
            If Me.RadioButton1.Checked Then
                FileData.WriteLine(Me.TextBox1.Text & "," & "add," & "FileSystemRights." & Me.CheckBox18.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
            ElseIf Me.RadioButton2.Checked Then
                FileData.WriteLine(Me.TextBox1.Text & "," & "remove," & "FileSystemRights." & Me.CheckBox18.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")

            Else
                MessageBox.Show("Please choose Add or Remove")

            End If
            If Me.TextBox1.Text = Nothing Or Me.TextBox2.Text = Nothing Or Me.TextBox3.Text = Nothing Then
                MessageBox.Show("Please fill in all the the boxes")

            End If
        End If


        If Me.CheckBox19.Checked.Equals(True) Then
            If Me.RadioButton1.Checked Then
                FileData.WriteLine(Me.TextBox1.Text & "," & "add," & "FileSystemRights." & Me.CheckBox19.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
            ElseIf Me.RadioButton2.Checked Then
                FileData.WriteLine(Me.TextBox1.Text & "," & "remove," & "FileSystemRights." & Me.CheckBox19.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")

            Else
                MessageBox.Show("Please choose Add or Remove")

            End If
            If Me.TextBox1.Text = Nothing Or Me.TextBox2.Text = Nothing Or Me.TextBox3.Text = Nothing Then
                MessageBox.Show("Please fill in all the the boxes")

            End If
        End If


        If Me.CheckBox20.Checked.Equals(True) Then
            If Me.RadioButton1.Checked Then
                FileData.WriteLine(Me.TextBox1.Text & "," & "add," & "FileSystemRights." & Me.CheckBox20.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
            ElseIf Me.RadioButton2.Checked Then
                FileData.WriteLine(Me.TextBox1.Text & "," & "remove," & "FileSystemRights." & Me.CheckBox20.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")

            Else
                MessageBox.Show("Please choose Add or Remove")

            End If
            If Me.TextBox1.Text = Nothing Or Me.TextBox2.Text = Nothing Or Me.TextBox3.Text = Nothing Then
                MessageBox.Show("Please fill in all the the boxes")

            End If
        End If


        If Me.CheckBox21.Checked.Equals(True) Then
            If Me.RadioButton1.Checked Then
                FileData.WriteLine(Me.TextBox1.Text & "," & "add," & "FileSystemRights." & Me.CheckBox21.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
            ElseIf Me.RadioButton2.Checked Then
                FileData.WriteLine(Me.TextBox1.Text & "," & "remove," & "FileSystemRights." & Me.CheckBox21.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")

            Else
                MessageBox.Show("Please choose Add or Remove")

            End If
            If Me.TextBox1.Text = Nothing Or Me.TextBox2.Text = Nothing Or Me.TextBox3.Text = Nothing Then
                MessageBox.Show("Please fill in all the the boxes")

            End If
        End If


        If Me.CheckBox22.Checked.Equals(True) Then
            If Me.RadioButton1.Checked Then
                FileData.WriteLine(Me.TextBox1.Text & "," & "add," & "FileSystemRights." & Me.CheckBox22.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")
            ElseIf Me.RadioButton2.Checked Then
                FileData.WriteLine(Me.TextBox1.Text & "," & "remove," & "FileSystemRights." & Me.CheckBox22.Text & "," & Me.TextBox3.Text & "," & Me.TextBox2.Text & "\")

            Else
                MessageBox.Show("Please choose Add or Remove")

            End If
            If Me.TextBox1.Text = Nothing Or Me.TextBox2.Text = Nothing Or Me.TextBox3.Text = Nothing Then
                MessageBox.Show("Please fill in all the the boxes")

            End If
        End If

        If Me.CheckBox1.Checked.Equals(False) And Me.CheckBox2.Checked.Equals(False) And Me.CheckBox3.Checked.Equals(False) And Me.CheckBox4.Checked.Equals(False) And Me.CheckBox5.Checked.Equals(False) And Me.CheckBox6.Checked.Equals(False) And Me.CheckBox7.Checked.Equals(False) And Me.CheckBox8.Checked.Equals(False) And Me.CheckBox9.Checked.Equals(False) And Me.CheckBox10.Checked.Equals(False) And Me.CheckBox11.Checked.Equals(False) And Me.CheckBox12.Checked.Equals(False) And Me.CheckBox13.Checked.Equals(False) And Me.CheckBox14.Checked.Equals(False) And Me.CheckBox15.Checked.Equals(False) And Me.CheckBox16.Checked.Equals(False) And Me.CheckBox17.Checked.Equals(False) And Me.CheckBox18.Checked.Equals(False) And Me.CheckBox19.Checked.Equals(False) And Me.CheckBox20.Checked.Equals(False) And Me.CheckBox21.Checked.Equals(False) And Me.CheckBox22.Checked.Equals(False) Then
            MessageBox.Show("Please choose a security property.")
        End If
        File.Close()


    End Sub

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        Me.Close()
    End Sub

    Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click
        AboutBox1.Show()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        File.Delete("users.txt")
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Process.Start("makefolders.exe")

    End Sub
End Class