datagridview run time - نسخة قابلة للطباعة

PHP كود :

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 