Datagrid custom column style

I require to create a custom column in a datagrid control(VisualBasic.NET - WindowsForms)

Any help / pointer this direction are most welcome

TIA,
Charlie

here's an example...............

Dim ts1 As New DataGridTableStyle()
ts1.MappingName = "Transactions"
' Add Date
Dim Dte As New DataGridTextBoxColumn()
Dte.MappingName = "Date"
Dte.HeaderText = " Date"

Dte.TextBox.TextAlign = HorizontalAlignment.Center
Dte.Format() = "dd/MM/yyyy"
Dte.Width = 80
Dte.NullText = ""
ts1.GridColumnStyles.Add(Dte)

Dim t1 As New DataGridTextBoxColumn()
t1.MappingName = "Person"
t1.HeaderText = " Person"
t1.Width = 160
t1.NullText = ""
ts1.GridColumnStyles.Add(t1)

Dim p1 As New DataGridTextBoxColumn()
p1.MappingName = "Adr"
p1.HeaderText = " ASddress"
p1.Width = 160
p1.NullText = ""
ts1.GridColumnStyles.Add(p1)

Dim Amt As New DataGridTextBoxColumn()
Amt.MappingName = "Amount"
Amt.HeaderText = " Amount Received"

Amt.TextBox.TextAlign = HorizontalAlignment.Right
Amt.Format() = "##,##0.00"
Amt.Width = 100
ts1.GridColumnStyles.Add(Amt)

Dim Ar1 As New DataGridTextBoxColumn()
Ar1.MappingName = "Arrears"
Ar1.HeaderText = " Arrears"

Ar1.TextBox.TextAlign = HorizontalAlignment.Right
Ar1.Format() = "##,##0.00"
Ar1.Width = 100

ts1.GridColumnStyles.Add(Ar1)
Dim Paid As DataGridBoolColumn = New DataGridBoolColumn()
Paid.MappingName = "Paid"
Paid.Width = 20
Paid.AllowNull = False
Paid.NullValue = False
ts1.GridColumnStyles.Add(Paid)

DataGrid1.TableStyles.Add(ts1)