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