Public Class Form1
Dim WithEvents dgv1 As New DataGridView
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
With dgv1
.ColumnCount = 2
.Columns(0).HeaderText = "م"
.Columns(1).HeaderText = "الاسم"
.Columns(0).Width = 100
.Columns(1).Width = 100
.Top = Button1.Bottom
.Width = 250
.Rows.Add("1", "سعود")
.Rows.Add("2", "ماضي")
.Rows.Add("3", "علي")
.Rows.Add("4", "ناجح")
End With
AddHandler dgv1.Click, AddressOf Me.dgv1_content_click
Me.Controls.Add(dgv1)
End Sub
Private Sub dgv1_content_click(sender As Object, e As EventArgs) Handles dgv1.CellContentClick
MsgBox(dgv1.CurrentCell.Value)
End Sub
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
dgv1.Visible = CheckBox1.Checked
End Sub
End Class