Module GlobalVariables
    ' sets the status false(not) true(sending)
    Public status As Boolean
    Public active As Boolean = False

End Module

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If status = False Then ' idle

            PictureBox5.Image = My.Resources.Arrow_active_down

            ' Idle boxes
            PictureBox4.Image = My.Resources.Arrow_active_left
            PictureBox1.Image = My.Resources.Arrow_active_left
            PictureBox7.Image = My.Resources.Arrow_active_up
            PictureBox8.Image = My.Resources.Arrow_active

            ' Active boxes
            PictureBox3.Image = My.Resources.Arrow_idle
            PictureBox2.Image = My.Resources.Arrow_idle
            PictureBox6.Image = My.Resources.Arrow_idle_up
            PictureBox9.Image = My.Resources.Arrow_idle_left
        Else ' active
            PictureBox5.Image = My.Resources.Arrow_active_down

            ' Idle boxes
            PictureBox4.Image = My.Resources.Arrow_idle_left
            PictureBox1.Image = My.Resources.Arrow_idle_left
            PictureBox7.Image = My.Resources.Arrow_idle_up
            PictureBox8.Image = My.Resources.Arrow_idle

            ' Active boxes
            PictureBox3.Image = My.Resources.Arrow_active
            PictureBox2.Image = My.Resources.Arrow_active
            PictureBox6.Image = My.Resources.Arrow_active_up
            PictureBox9.Image = My.Resources.Arrow_active_left
        End If

    End Sub

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChanged

    End Sub

    Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        If status = False And active = True Then ' idle

            PictureBox16.Image = My.Resources.Arrow_active_down

            ' Idle boxes
            PictureBox17.Image = My.Resources.Arrow_active_left
            PictureBox12.Image = My.Resources.Arrow_active_left
            PictureBox15.Image = My.Resources.Arrow_active_up
            PictureBox14.Image = My.Resources.Arrow_active

            ' Active boxes
            PictureBox18.Image = My.Resources.Arrow_idle
            PictureBox11.Image = My.Resources.Arrow_idle
            PictureBox10.Image = My.Resources.Arrow_idle_up
            PictureBox13.Image = My.Resources.Arrow_idle_up
            PictureBox19.Image = My.Resources.Arrow_idle_left
            PictureBox20.Image = My.Resources.Arrow_idle_down
        ElseIf status = True And active = True  ' active
            PictureBox16.Image = My.Resources.Arrow_active_down

            ' Idle boxes
            PictureBox17.Image = My.Resources.Arrow_idle_left
            PictureBox12.Image = My.Resources.Arrow_idle_left
            PictureBox15.Image = My.Resources.Arrow_idle_up
            PictureBox14.Image = My.Resources.Arrow_idle

            ' Active boxes
            PictureBox18.Image = My.Resources.Arrow_active
            PictureBox11.Image = My.Resources.Arrow_active
            PictureBox10.Image = My.Resources.Arrow_active_up
            PictureBox13.Image = My.Resources.Arrow_active_up
            PictureBox19.Image = My.Resources.Arrow_active_left
            PictureBox20.Image = My.Resources.Arrow_active_down
        End If
    End Sub

    Private Sub PictureBox11_Click(sender As Object, e As EventArgs)

    End Sub

    Private Sub PictureBox12_Click(sender As Object, e As EventArgs) Handles PictureBox12.Click

    End Sub

    Private Sub PictureBox13_Click(sender As Object, e As EventArgs)

    End Sub

    Private Sub PictureBox14_Click(sender As Object, e As EventArgs) Handles PictureBox14.Click

    End Sub

    Private Sub PictureBox15_Click(sender As Object, e As EventArgs) Handles PictureBox15.Click

    End Sub

    Private Sub PictureBox16_Click(sender As Object, e As EventArgs) Handles PictureBox16.Click

    End Sub

    Private Sub PictureBox17_Click(sender As Object, e As EventArgs) Handles PictureBox17.Click

    End Sub

    Private Sub PictureBox18_Click(sender As Object, e As EventArgs) Handles PictureBox18.Click

    End Sub

    Private Sub TextBox4_TextChanged(sender As Object, e As EventArgs) Handles TextBox4.TextChanged

    End Sub

    Private Sub TextBox5_TextChanged(sender As Object, e As EventArgs) Handles TextBox5.TextChanged

    End Sub

    Private Sub TextBox6_TextChanged(sender As Object, e As EventArgs) Handles TextBox6.TextChanged

    End Sub

    Private Sub PictureBox10_Click(sender As Object, e As EventArgs) Handles PictureBox10.Click

    End Sub

    Private Sub PictureBox22_Click(sender As Object, e As EventArgs) Handles PictureBox22.Click

    End Sub

    Private Sub TextBox10_TextChanged(sender As Object, e As EventArgs) Handles TextBox10.TextChanged

    End Sub


    Private Sub GroupBox1_Enter_1(sender As Object, e As EventArgs) Handles GroupBox1.Enter

    End Sub
    'sending
    Private Sub RadioButton2_CheckedChanged_1(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged
        active = True
        If status = False Then
            status = True
        End If

        Button1.PerformClick()

    End Sub
    'not
    Private Sub RadioButton1_CheckedChanged_1(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged
        active = True
        If status = True Then
            status = False
        End If
        Button1.PerformClick()
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        If status = False And active = True Then ' idle
            Randomize()
            Dim resubmit As Integer = CInt(Int(2 * Rnd()))

            ' Idle boxes
            PictureBox29.Image = My.Resources.Arrow_active_down
            PictureBox22.Image = My.Resources.Arrow_active_down
            If resubmit = 1 Then
                PictureBox23.Image = My.Resources.Arrow_active_up
                PictureBox24.Image = My.Resources.Arrow_active_up
                PictureBox25.Image = My.Resources.Arrow_active_up
                PictureBox26.Image = My.Resources.Arrow_active
            Else
                PictureBox23.Image = My.Resources.Arrow_idle_up
                PictureBox24.Image = My.Resources.Arrow_idle_up
                PictureBox25.Image = My.Resources.Arrow_idle_up
                PictureBox26.Image = My.Resources.Arrow_idle
            End If

            ' Active boxes
            PictureBox21.Image = My.Resources.Arrow_idle_down
            PictureBox27.Image = My.Resources.Arrow_idle
            PictureBox28.Image = My.Resources.Arrow_idle_up
            PictureBox30.Image = My.Resources.Arrow_idle_left

        ElseIf status = True And active = True  ' active

            ' Idle boxes
            PictureBox29.Image = My.Resources.Arrow_idle_down
            PictureBox22.Image = My.Resources.Arrow_idle_down
            PictureBox23.Image = My.Resources.Arrow_idle_up
            PictureBox24.Image = My.Resources.Arrow_idle_up
            PictureBox25.Image = My.Resources.Arrow_idle_up
            PictureBox26.Image = My.Resources.Arrow_idle

            ' Active boxes
            PictureBox21.Image = My.Resources.Arrow_active_down
            PictureBox27.Image = My.Resources.Arrow_active
            PictureBox28.Image = My.Resources.Arrow_active_up
            PictureBox30.Image = My.Resources.Arrow_active_left
        End If
    End Sub
End Class