Private Sub Frmmain_Closing(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        Dim objXmlSer As New XmlSerializer(GetType(Col_prop))
        Dim obj As New Col_prop
        Dim objStrWrt As StreamWriter
        objStrWrt = New StreamWriter("c:\abc.xml")
        For Each col As DataGridViewColumn In dgv.Columns
            obj.colVisible = col.Visible
            obj.colWidth = col.Width
            obj.colFormat = col.DefaultCellStyle.Format
            obj.colAlignement = col.DefaultCellStyle.Alignment
            obj.colSort = col.SortMode
            objXmlSer.Serialize(objStrWrt, obj)
        Next
        objStrWrt.Close()
    End Sub