VB.NET DataGridView.Columns(1).DefaultCellStyle.Format olmuyor

[Vatansever]

Arkadaşlar iki adet datagridview'im var birincide bir satıra tıkladığımda o satırdaki bilgiler ikinci datagride kopyalanıyor benim istediğim ikinci datagriddeki TL sütununun formatını değiştirmek ve bu sütundaki rakamlar bu formatta görünsün bunu nasıl yapabilirim

Public Class Form1

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        DataGridView1.ColumnCount = 3
        DataGridView1.Columns(0).Name = "ID"
        DataGridView1.Columns(1).Name = "İsim"
        DataGridView1.Columns(2).Name = "TL"
        DataGridView1.Columns(0).Width = 40

        Dim row As String() = New String() {"1", "soğan", "543453453"}
        DataGridView1.Rows.Add(row)
        row = New String() {"2", "patlıcan", "543453453"}
        DataGridView1.Rows.Add(row)
        row = New String() {"3", "elma", "786786378"}
        DataGridView1.Rows.Add(row)
        row = New String() {"4", "biber", "863783783"}
        DataGridView1.Rows.Add(row)



        DataGridView2.ColumnCount = 3
        DataGridView2.Columns(0).Name = "ID"
        DataGridView2.Columns(1).Name = "İsim"
        DataGridView2.Columns(2).Name = "TL"
        DataGridView2.Columns(0).Width = 40
        Me.DataGridView2.Columns("TL").DefaultCellStyle.Format = "###,###.000" ' bu kod işe yaramıyor yada böyle kullanılmıyor

        Dim row2 As String() = New String() {"0", "elma", "10225632"}
        DataGridView2.Rows.Add(row2)
        row2 = New String() {"1", "armut", "453455345"}
        DataGridView2.Rows.Add(row2)
        row2 = New String() {"2", "portakal", "543453534"}
        DataGridView2.Rows.Add(row2)
        row2 = New String() {"3", "limon", "53453543"}
        DataGridView2.Rows.Add(row2)

    End Sub


    Private Sub DataGridView1_CellClick(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick

        Dim r2 As DataGridViewRow = DirectCast(DataGridView2.Rows(0).Clone(), DataGridViewRow)
        Dim i As Integer = 0
        For Each cell As DataGridViewCell In DataGridView1.Rows(e.RowIndex).Cells
            r2.Cells(i).Value = cell.Value
            i += 1
        Next
        DataGridView2.Rows.Add(r2)
        DataGridView2.Refresh()

    End Sub

End Class

 

[paprikari]

teşekkürler...