[VB.NET] استفسار :- بخصوص DataGridViewCheckBoxColumn

كود :
Dim con As New SQLiteConnection(SQLiteconnstring)

                Dim com As String = String.Format("SELECT Qso_id,CALLop ,qso_date ,timek ,bands ,modes ,rst_sent,rst_rcvd  FROM DB{0} Where CALLop like  '{1}' order by qso_date DESC , timek desc", strca, calls.Text)

                Dim Adpt As New SQLiteDataAdapter(com, con)

                Dim ds As New DataSet()

                Adpt.Fill(ds, String.Format("DB{0}", strca))

                DataGridView2.DataSource = ds

                DataGridView2.DataMember = String.Format("DB{0}", strca)







                With DataGridView2







                    Dim col As New DataGridViewCheckBoxColumn

                    col.HeaderText = "Tag"

                   .Columns.Add(col)





                    .Columns(0).Visible = False

                    .Columns(1).HeaderCell.Value = "Call Sign"

                    .Columns(1).Width = "100"



                    .Columns(2).HeaderCell.Value = "Date"

                    .Columns(2).Width = "100"



                    .Columns(3).HeaderCell.Value = "UTC"

                    .Columns(3).Width = "70"



                    .Columns(4).HeaderCell.Value = "Band"

                    .Columns(4).Width = "70"



                    .Columns(5).HeaderCell.Value = "Mode"

                    .Columns(5).Width = "70"





                    .Columns(6).HeaderCell.Value = "rst sent"

                    .Columns(6).Width = "60"



                    .Columns(7).HeaderCell.Value = "rst rcvd"

                    .Columns(7).Width = "60"









                    Label1.Text = .Rows.Count - 0

                    Text = String.Format("Number of QSO : {0}  ", Label1.Text)





                End With