อิใืำะ การกำหนดค่า width ให้ datagrid ใน pocket pc

       Dim dt As New DataTable 
       dt.Columns.Add("Barcode", GetType(String)).DefaultValue = ""
       dt.Columns.Add("Date", GetType(String)).DefaultValue = ""

        Dim style As DataGridTableStyle
        style = New DataGridTableStyle()

        style.MappingName = dt.GetType().Name

        Dim ColBarcode As DataGridColumnStyle
        ColBarcode = New DataGridTextBoxColumn()
        ColBarcode.HeaderText = "Barcode"
        ColBarcode.MappingName = "Barcode"
        ColBarcode.Width = 900
        style.GridColumnStyles.Add(ColBarcode)

        Dim ColDate As DataGridColumnStyle
        ColDate = New DataGridTextBoxColumn()
        ColDate.HeaderText = "Date"
        ColDate.MappingName = "Date"
        ColDate.Width = 500
        style.GridColumnStyles.Add(ColDate)

        Me.gvData.TableStyles.Add(style)