Private Function FarbeNegativ(ByVal C As Color) As Color
        Dim ABitarray As BitArray = New BitArray(C.A)
        Dim RBitarray As BitArray = New BitArray(C.R)
        Dim GBitarray As BitArray = New BitArray(C.G)
        Dim BBitarray As BitArray = New BitArray(C.B)
        ABitarray = ABitarray.Not()
        RBitarray = RBitarray.Not()
        GBitarray = GBitarray.Not()
        BBitarray = BBitarray.Not()
        Return Color.FromArgb(Convert.ToInt32(Convert.ToByte(ABitarray)), _
          Convert.ToInt32(Convert.ToByte(RBitarray)), Convert.ToInt32( _
          Convert.ToByte(GBitarray)), Convert.ToInt32(Convert.ToByte( _
          BBitarray)))
    End Function