توضيح كود

[على]

السلام عليكم

اريد شرح وتوضيح لهدا الكود لم يعمل معي لاظهار

صفوف الليست بوكس في التكست بوكسات بالفورم

ما الخطاء

Sub ListBox1_Click()
On Error Resume Next
FileTextBox.Visible = True
TybeTextBox.Visible = True
DaysTextBox.Visible = True
FromTextBox.Visible = True
ToTextBox.Visible = True
NotesTextBox.Visible = True
CommandButton1.Visible = True
DeleCommandButton.Visible = True
SaveCommandButton.Enabled = False
ii = 3
For i = 0 To Me.ListBox1.ColumnCount
Me.Controls("TextBox" & ii).Value = Me.ListBox1.List(ListBox1.ListIndex, i)
ii = ii + 1
Next
End Sub