فورم اضافة ومسح وحذف وتعديل و بحث بعددة طرق مختلفة

Private Sub ListBox1_Click()
Dim say As Long, a As Byte

For a = 0 To 11
Controls("textbox" & a + 1) = ListBox1.Column(a)
Next

Sheets("Data").Range("A2:A1000").Find(ListBox1.Text).Activate
say = ActiveCell.row
Sheets("Data").Range("A" & say & ":L" & say).Select
TextBox15 = ListBox1.ListIndex + 1
End Sub