nhap lieu (1 người xem)

[overnight_9]

có thầy nào rảnh xem giúp tôi from này, xem nó lỗi gì mà die chổ:

Private Sub ListBox1_Change()

Dim i As Long
For i = 0 To 16
     MyControls(i).Text = ""
     MyControls(i).Text = ListBox1.List(, i)
    
    Next
    Txtdate = Format(Txtdate, "dd/mm/yyyy")
    
End Sub

tks a lot