مساعدة فى الكود vb net - نسخة قابلة للطباعة

PHP كود :

Public Class Form1

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        Dim dt As New DataTable("PhoneBook")
        dt.Columns.Add("Name")
        dt.Columns.Add("Phone")

        dt.Rows.Add("riad", "+123456")
        dt.Rows.Add("الوادي", "0123")

        ComboBox1.DataSource = dt
        ComboBox1.DisplayMember = "Name"
        ComboBox1.ValueMember = "Phone"
        ComboBox1.SelectedIndex = -1

    End Sub

    Private Sub ComboBox1_SelectionChangeCommitted(sender As Object, e As System.EventArgs) Handles ComboBox1.SelectionChangeCommitted
        TextBox1.Text = ComboBox1.SelectedItem("Name") & "= " & ComboBox1.SelectedItem("Phone")
    End Sub

End Class

PHP كود :

Public Class Form1


    Dim dt As New DataTable("PhoneBook")


    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        dt.Columns.Add("Name")
        dt.Columns.Add("Phone")

    End Sub


    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        If TextBox1.Text.Trim = "" Or TextBox2.Text.Trim = "" Then
            MsgBox("تأكد من البيانات")
            Return
        End If

        dt.Rows.Add(TextBox1.Text, TextBox2.Text)
        'MsgBox("تمت الإضافة")

        ComboBox1.Items.Clear()
        Dim names = From row As DataRow In dt.Rows Select row("Name") Distinct
        ComboBox1.Items.AddRange(names.ToArray)

        ComboBox1.Text = TextBox1.Text

        TextBox2.Text = ""
        TextBox2.Focus()

    End Sub


    Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

        ViewPhones(ComboBox1.Text)

    End Sub


    Private Sub ViewPhones(nm As String)

        ListBox1.Items.Clear()
        Dim phones = From row As DataRow In dt.Rows Where row("Name") = nm Select row("Phone")
        ListBox1.Items.AddRange(phones.ToArray)

    End Sub


End Class