Dim dt As New DataTable
        dt.Columns.Add("Column1", GetType(Single))
        Dim rnd As New Random(Now.Millisecond)
        For i As Integer = 0 To 5
            dt.Rows.Add(CSng(rnd.Next(100, 10000) / 100))
        Next
 
        DataGridView1.DataSource = dt
        DataGridView1.Columns(dt.Columns(0).ColumnName).DefaultCellStyle.Format _
          = "c2"