Public Function FindCurrentImageIndex(ByVal CurrentImage As Image, ByVal _
   ImgList As ImageList) As Integer
 
        Dim bmp1, bmp2 As Bitmap
        bmp1 = New Bitmap(CurrentImage) ' in dieser zeile kommt der unten 
        ' genannte fehler
        Dim b As Boolean = True
        For a As Integer = 0 To ImgList.Images.Count - 1
            bmp2 = New Bitmap(ImgList.Images(a))
            b = True
            For x As Integer = 0 To ImgList.ImageSize.Width - 1
                For y As Integer = 0 To ImgList.ImageSize.Height - 1
                    b = b And bmp1.GetPixel(x, y).Equals(bmp2.GetPixel(x, y))
                Next
            Next
            If b Then Return a
        Next
        Return -1
    End Function

Private Sub PictureBox10_Click_1(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles PictureBox10.Click
        Dim a As String
        a = FindCurrentImageIndex(PictureBox10.Image, ImageList1).ToString
        Select Case a
            Case 0
                PictureBox10.Image = ImageList1.Images(2)
            Case 2
                PictureBox10.Image = ImageList1.Images(0)
            Case 1
                PictureBox10.Image = ImageList1.Images(3)
            Case 3
                PictureBox10.Image = ImageList1.Images(1)
        End Select
    End Sub

Sub IE6()
        Dim a As String
        a = ReadValueCU("Software\Microsoft\Internet Explorer\Main", _
          "NoUpdateCheck")
        Select Case a
            Case "1"
                PictureBox10.Image = ImageList1.Images(0)
            Case "0"
                PictureBox10.Image = ImageList1.Images(1)
        End Select
end sub