Private Sub BtnTransparenteFarbeEntfernen_Click(ByVal sender As _
      System.Object, ByVal e As System.EventArgs) Handles _
      BtnTransparenteFarbeEntfernen.Click
        If LangsamesTransperentVerfahren.Checked = false Then
            GoTo BtnTransparenteFarbeEntfernen_Click_Langsam
        End If
        Cursor = Cursors.WaitCursor
 
        Dim Diff As Integer = Farbabweichung.Text
        Dim A As Integer = AktuelleFarbeA.Text
        Dim R As Integer = AktuelleFarbeR.Text
        Dim G As Integer = AktuelleFarbeG.Text
        Dim B As Integer = AktuelleFarbeB.Text
        Dim RN As Integer
        Dim GN As Integer
        Dim BN As Integer
        Dim z As Integer
        Dim myBitmap As New Bitmap(BildAnzeigeNeu.Image)
 
        For z = Diff * -1 To Diff
            RN = R + z
            GN = G + z
            BN = B + z
            If RN < 0 Then
                RN = 0
            End If
            If RN > 255 Then
                RN = 255
            End If
 
            If GN < 0 Then
                GN = 0
            End If
            If GN > 255 Then
                GN = 255
            End If
 
            If BN < 0 Then
                BN = 0
            End If
            If BN > 255 Then
                BN = 255
            End If
            '       MsgBox(z & "  RN " & RN & "  GN " & GN & "  BN " & BN)
            'PictureBox1.Image = ReplaceColor(Image.FromFile(Label1.Text), 
            ' Color.FromArgb(255, RN, GN, BN), Color.Aquamarine)
            'PictureBox1.Image = ReplaceColor(PictureBox1.Image, Color.FromArgb( 
            ' 255, RN, GN, BN), Color.Aquamarine)
            myBitmap = ReplaceColor(myBitmap, Color.FromArgb(A, RN, GN, BN), _
              Color.FromArgb(0, 0, 0, 0))
        Next
        BildAnzeigeNeu.Image = myBitmap
 
        Cursor = Cursors.Arrow
 
        Exit Sub
BtnTransparenteFarbeEntfernen_Click_Langsam:
        Dim BMP As Bitmap = BildAnzeigeNeu.Image
        'Dim VAktuelleFarbeA As Integer
        'Dim VAktuelleFarbeR As Integer
        'Dim VAktuelleFarbeG As Integer
        'Dim VAktuelleFarbeB As Integer
        Dim AktuellA As Integer
        Dim AktuellR As Integer
        Dim AktuellG As Integer
        Dim AktuellB As Integer
 
        Cursor = Cursors.WaitCursor
 
        ' Color [A=255, R=31, G=28, B=22]
        'AktuelleFarbeA = Mid(AktuelleFarbe.Text, InStr(1, AktuelleFarbe.Text, 
        ' "A=") + 2, 3)
        'AktuelleFarbeR = Mid(AktuelleFarbe.Text, InStr(1, AktuelleFarbe.Text, 
        ' "R=") + 2, 3)
        'AktuelleFarbeG = Mid(AktuelleFarbe.Text, InStr(1, AktuelleFarbe.Text, 
        ' "G=") + 2, 3)
        'AktuelleFarbeB = Val(Mid(AktuelleFarbe.Text, InStr(1, 
        ' AktuelleFarbe.Text, "B=") + 2, 3))
 
        'VAktuelleFarbeA = AktuelleFarbeA.Text
        'VAktuelleFarbeR = AktuelleFarbeR.Text
        'VAktuelleFarbeG = AktuelleFarbeG.Text
        'VAktuelleFarbeB = AktuelleFarbeB.Text
 
        ' Wenn die gewählte Farbe schon Weiss ist, dann die Sub verlassen
        If AktuelleFarbeA.Text + AktuelleFarbeR.Text + AktuelleFarbeG.Text + _
          AktuelleFarbeB.Text = 0 Then
            Cursor = Cursors.Arrow
            Exit Sub
        End If