Private Sub AddDataGridStyle()

        ' Grid HouseKeeping **************************************************************************
        Dim MyGridStyle As DataGridTableStyle = New DataGridTableStyle()
        MyGridStyle.MappingName = "Seminars" '!!!!!!!!!!!!!!!!!!!!!!!!!
        MyGridStyle.AlternatingBackColor = System.Drawing.Color.Gold
        MyGridStyle.BackColor = System.Drawing.Color.White
        MyGridStyle.ForeColor = System.Drawing.Color.Black
        MyGridStyle.PreferredRowHeight = 20
        '********************************************************************************************

        '** Here Is A Sample Plain Old Text Item ****************************************************
        Dim vNameColumnStyle As DataGridTextBoxColumn = New DataGridTextBoxColumn()
        vNameColumnStyle.MappingName = "SeminarLocation"
        vNameColumnStyle.HeaderText = "Seminar Location"
        vNameColumnStyle.Width = 200
        MyGridStyle.GridColumnStyles.Add(vNameColumnStyle)
        '********************************************************************************************

        'Check Box Column *************************************************
        Dim vBoolColumn As DataGridBoolColumn = New DataGridBoolColumn()
        vBoolColumn.MappingName = "Inactive"
        vBoolColumn.HeaderText = "Inactive"
        vBoolColumn.Width = 50
        vBoolColumn.AllowNull = False 'Grey mode
        MyGridStyle.GridColumnStyles.Add(vBoolColumn)
        '******************************************************************

        'DropDownList Column **********************************************
        'This Class Needs To Be Added To The Project...                                             
        Dim vColCombo As New MyClsDataGridComboBoxColumn()
        vColCombo.MappingName = "ExamLev"
        vColCombo.HeaderText = "ExamLev"
        vColCombo.Width = 100

        '** Add Some Items....                                                                      
        vColCombo.MyCombo.Items.Clear()
        vColCombo.MyCombo.Items.Add("CERT")
        vColCombo.MyCombo.Items.Add("SSCP")
        vColCombo.MyCombo.Items.Add("SSAP")
        vColCombo.MyCombo.Items.Add("SSEP")
        vColCombo.MyCombo.Items.Add("SSMP")

        vColCombo.MyCombo.DropDownStyle = ComboBoxStyle.DropDown
        MyGridStyle.GridColumnStyles.Add(vColCombo)
        '***********************************************************************

        DataGrid2.TableStyles.Add(MyGridStyle)


    End Sub