Visual Basic

Dim MyImage As New Bitmap("C:\testimage.jpg")
Dim pixelColor As Color = MyImage.GetPixel(0,0)
Dim r As Byte = pixelColor.R
Dim b As Byte = pixelColor.B
Dim g As Byte = pixelColor.G

Private Function ExtractEmailAddressesFromString2(ByVal source As String) As StringDictionary<br />
        Dim mc As MatchCollection<br />
        Dim i As Integer<br />
        Dim myCol As New StringDictionary<br />
        Dim m As String<br />
        ' expression from www.regexlib.com extracting email-addresses<br />
        mc = Regex.Matches(source, "([a-zA-Z0-9_\-\.]+)@([a-zA-Z0-9_\-\.]+)\.([a-zA-Z]{2,5})")        <br />
<br />
       For i = 0 To mc.Count - 1<br />
          'if address is not in collection from before, it is added <br />
           If myCol.ContainsKey(mc(i).Value )=False Then                     <br />
               myCol.Add(mc(i).Value, "") 'key + value   <br />
            End If<br />
       Next            <br />
        Return myCol<br />
End function