Visual Basic

<br />
' Draw all font names on form<br />
        Dim gr As Graphics = Me.CreateGraphics<br />
        gr.Clear(Color.White)<br />
<br />
        ' Prepare a message with tabs and carriage returns.<br />
        Dim msg As String = String.Format("{0}Column 1{0}Column 2{0}Column 3{1}" _<br />
            & "Row 1{0}Cell (1,1){0}Cell (1,2){0}Cell (1,3){1}" _<br />
            & "Row 2{0}Cell (2,1){0}Cell (2,2){0}Cell (2,3){1}", _<br />
            ControlChars.Tab, ControlChars.CrLf)<br />
        Dim fnt As New Font("Arial", 12)<br />
<br />
        Dim strFormat As New StringFormat()<br />
        ' Set the tab stops.<br />
        Dim tabStops() As Single = {80, 140, 200}<br />
        strFormat.SetTabStops(0, tabStops)<br />
        ' Draw the text with specified tab stops.<br />
        gr.DrawString(msg, fnt, Brushes.Black, 20, 20, strFormat)<br />
<br />
        fnt.Dispose()<br />
        gr.Dispose()<br />
<br />