Dim g As Graphics = SampleImage.CreateGraphics()
 
        g.FillRectangle(Brushes.White, g.ClipBounds())
        g.SmoothingMode = Drawing.Drawing2D.SmoothingMode.AntiAlias
 
        Dim rect As New RectangleF(80, 50, 120, 100)
        Dim rect2 As New RectangleF(50, 10, 120, 100)
 
        Dim sf As New StringFormat(StringFormatFlags.LineLimit)
 
        If sampleText.Text = "" Then
            sampleText.Text = "WWW"
        End If
 
        g.DrawString(sampleText.Text, sampleFont, _
           Brushes.Black, rect, sf)
 
        g.DrawRectangle(Pens.Black, Rectangle.Truncate(rect))
 
        g.DrawString(sampleText.Text, sampleFont, _
                    Brushes.Black, rect2, sf)
 
        g.DrawRectangle(Pens.Black, Rectangle.Truncate(rect2))