(23/01/2020, 17:58)accessman yazdı: bu dediğini buna nasıl uyarlayacağız

Private Sub txt42_ItemClick(ByVal Item As Object)
    veri = Me.txt42.Object.SelectedItem
End Sub

Private Sub txt42_OLEDragDrop(Data As Object, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
    Call güncelle("txt42", veri)
End Sub

"txt42" bu kısma classın içine alınan control adı yazılacak.

Call güncelle(textad, veri) gibi.
Yani textad yazdışımığım yere kod ile otomatik gelecek adlar hangisiyle işlem yaşılıyorsa.