Windows Forms

public static void dgCellFormat(object sender, DataGridViewCellFormattingEventArgs e)
{
    DataGridViewColumn oCol = (sender as DataGridView).Columns[e.ColumnIndex];
    string vt = oCol.ValueType.ToString().ToLower();
    switch (vt)
    {
        case "system.int32":
        case "system.int16":
        case "system.int64":
            e.CellStyle.Alignment = DataGridViewContentAlignment.MiddleRight;
            //if the right 2 characters are not ID then add , to the value
            if (!oCol.HeaderText.EndsWith("ID"))
            {
                e.CellStyle.Format = "#,#";
            }
            break;
        case "system.decimal":
            e.CellStyle.Alignment = DataGridViewContentAlignment.MiddleRight;
            //if the right 2 characters are not ID then add , to the value
            if (!oCol.HeaderText.EndsWith("ID"))
            {
                e.CellStyle.Format = "#,#.00";
            }
            break;
        case "system.datetime":
            e.CellStyle.Alignment = DataGridViewContentAlignment.MiddleRight;
            break;
    }
}

#Region "1).Declarations"
Dim con As SqlConnection
end region

• tb_Undo
• tb_UndoWW
• tb_WW

Private Sub tb_Undo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb_Undo.Click
  'Enabled property not affected by other code
  rtf.Undo()

End Sub

Private Sub tb_UndoWW_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb_UndoWW.Click
  'Enabled property affected by rtf.SelectionChanged event handler
  If rtf.CanUndo Then
    rtf.Undo()
  End If
End Sub

Private Sub tb_WW_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb_WW.Click
  'toggle word wrap
  rtf.WordWrap = tb_WW.Checked

End Sub

Private Sub rtf_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles rtf.SelectionChanged
  'selection changes when word wrap is toggled
  'enables / disables tb_UndoWW
  tb_UndoWW.Enabled = rtf.CanUndo

End Sub