Single Swap Mutation Operator

            Public Sub SingleSwap_Mutation(ByRef Child1 As PChromo)
                'Child1 mutation
                    Dim X As Integer = RAND.Next(0, AlleleCount)
                    Dim Y As Integer = RAND.Next(0, AlleleCount)
                    Dim K as integer = Child1.Alleles(X)
                    Child1.Alleles(X) = Child1.Alleles(Y)
                    Child1.Alleles(Y) = K
            End Sub