Guys.....

How can I apply this function in listbox...


Private Sub Data1_Reposition()
Data1.Caption = Data1.Recordset("No_supplier")

End Sub

I just want to know how can I coding in listbox to appear like in my Data1
meaning that I can select the data....

I try to apply in list box this code but...
the data doesn't appear.....