Visual Basic

Public Sub ConnectToAccess()
    Dim conn As New System.Data.OleDb.OleDbConnection()
    ' TODO: Modify the connection string and include any
    ' additional required properties for your database.
    conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=C:\Documents and Settings\username\My Documents\dbFile.mdb"
    Try
       conn.Open()
       ' Insert code to process data.
    Catch ex As Exception
       MessageBox.Show("Failed to connect to data source")
    Finally
       conn.Close()
    End Try
End Sub

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