ekle = InputBox("Ders Ekle", "Ekle") List1.AddItem (ekle)
Kayitlar.Fields("list1") = List1.ListIndex(ekle)