Visual Basic

 Dim g As Drawing.Graphics = Nothing<br />
        Dim bm_width As Integer = 170<br />
        Dim bm_height As Integer = 200<br />
<br />
        Dim newBitmap As Bitmap = New Bitmap(bm_width, bm_height, Imaging.PixelFormat.Format24bppRgb)<br />
        g = Drawing.Graphics.FromImage(newBitmap)<br />
        g.PageUnit = GraphicsUnit.Pixel<br />
        g.DrawImage(newBitmap, 0, 0, bm_width, bm_height)<br />
<br />
        g.FillRectangle(Brushes.White, 0, 0, bm_width, bm_height)<br />
        Dim b As Font<br />
        Dim a As New FontDialog<br />
<br />
        If a.ShowDialog = Windows.Forms.DialogResult.OK Then<br />
            b = a.Font<br />
        End If<br />
'here i want to change the size of user selected Font <br />
<br />
        g.DrawString(txtString.Text.Trim, b, Brushes.Black, 0, 0)<br />
        newBitmap.Save("c:\1.png", Imaging.ImageFormat.Png)

Imports Microsoft.Practices.EnterpriseLibrary.Data
Imports Microsoft.Practices.EnterpriseLibrary.Data.Sql

...

        Dim lubc As New LookupBaseCollection(GetType(SectypeCommon))
        Dim sqlCommand As String = "SELECT * From Deals"
        Dim dbCommandWrapper As DBCommandWrapper = Me.database.GetSqlStringCommandWrapper(sqlCommand)
        dbCommandWrapper.CommandTimeout = Me.database.GetConnection().ConnectionTimeout

        Dim dataReader As IDataReader = Me.database.ExecuteReader(dbCommandWrapper)

        While (dataReader.Read())
            Dim sc As New SectypeCommon(dataReader("transtype").ToString())
            sc.Name = dataReader("name")
            sc.TheKey = dataReader("thekey")
            sc.ShortName = dataReader("code")
            ...
        End While