[kslawy]

كود :

Dim Str_Name As String = txt_Name.Text.Trim
Dim Str_Type As String = txt_Type.Text.Trim
Dim Str_Number As String = txt_Number.Text.Trim

Dim item As New ListViewItem()

item.Text = Str_Name
item.SubItems.Add(Str_Type)
item.SubItems.Add(Str_Number)

ListView1.Items.Add(item)