Format a datagrid in VB.Net compact framework

     Public Sub formatDGHead(ByVal dg As DataGrid)

            ' Assume DataGrid DataSource is a DataSet
            If dg.DataSource.GetType() Is Me.DataSet11.GetType Then
                  Dim ds As DataSet
                  ds = CType(dg.DataSource, DataSet)
                  If Not (ds Is Nothing) Then
                        ' contains at least one table.
                        If dg.TableStyles.Count > 0 Then
                              dg.TableStyles.Clear()
                        End If
                        Dim sumWidths As Single = 0.0F
                        Dim dt As DataTable
                        For Each dt In ds.Tables
                              ' DataTable dt = ds.Tables[tableName];
                              Dim DGStyle As New DataGridTableStyle
                              DGStyle.MappingName = dt.TableName
                              DGStyle.AllowSorting = False
                              DGStyle.AlternatingBackColor = Color.Gainsboro
                              Dim textColumn As DataGridTextBoxColumn
                              Dim cWidths As New ArrayList
                              Dim g As Graphics = dg.CreateGraphics()
                              Dim f As Font = dg.Font
                              Dim sf As SizeF
                              ' get widths for each column header
                              Dim dc As DataColumn
                              For Each dc In dt.Columns
                                    ' "W"is used as padding
                                    sf = g.MeasureString("W" + dc.Caption, f)
                                    cWidths.Add(sf.Width)
                              Next dc
                              ' set each column with its determined width
                              For Each dc In dt.Columns
                                    textColumn = New DataGridTextBoxColumn
                                    textColumn.MappingName = dc.ColumnName
                                    textColumn.HeaderText = "" + dc.Caption
                                    textColumn.Width = CInt(CSng(cWidths(dc.Ordinal)))
                                    DGStyle.GridColumnStyles.Add(textColumn)
                                    sumWidths += textColumn.Width
                              Next dc
                              dg.TableStyles.Add(DGStyle)
                        Next dt
                  End If
            End If
      End Sub      'formatDGHead