Private Sub cmdBildtoArray_Click(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles cmdBildtoArray.Click
        Dim image1 As Bitmap        'Image eins als Variable vom Typ Bild 
        ' erzeugen
        Dim HSV As HSVType
 
        image1 = CapturePicture(videoHandle) 'Aktuelles Bild der Kamera der 
        ' Variable image1 zuordnen
 
        Dim x, y As Integer             'Variablen für Koordinaten der Pixel 
        ' definieren
 
 
        For x = 0 To image1.Width - 1               'Schleife durch die Pixel
            For y = 0 To image1.Height - 1
                Dim pixelColor As Color = image1.GetPixel(x, y)
                Dim newColor As Color = Color.FromArgb(255, pixelColor.R, _
                  pixelColor.G, 250)             'Farbe des Aktuellen Pixels 
                ' verändern pixelcolor.R = PixelFarbe Rot übernehmen
                RGBtoHSV1.HSVtoRGBColor(10, 20, 30) 'Funktionen die ich im 
                ' Internet gefunden habe
 
                Dim Color2 As Color = RGBtoHSV(pixelColor.R, pixelColor.G, _
                  pixelColor.B, 50, 80, 100)
                HSV = RGBtoHSV(pixelColor.R, pixelColor.G, pixelColor.B) _
                'Funktionen die ich im Internet gefunden habe
                image1.SetPixel(x, y, newColor)     'Pixel mit neuer Farbe 
                ' ausfüllen
 
 
            Next
        Next
 
 
        PictureBox2.Image = image1          '´Neues Bild auf der Picture Box 
        ' ausgeben
 
 
        Label1.Text = "Pixel format: " + image1.PixelFormat.ToString()  'Pixel 
        ' format ausgeben
 
    End Sub