Private Sub Liste0_DblClick(Cancel As Integer)

If Liste0.ListIndex = 0 Then Me.tc1 = Liste0.Column(1, 0)

If Liste0.ListIndex = 1 Then Me.tc2 = Liste0.Column(1, 1)

If Liste0.ListIndex = 2 Then Me.tc3 = Liste0.Column(1, 2)

If Liste0.ListIndex = 3 Then Me.tc4 = Liste0.Column(1, 3)

If Liste0.ListIndex = 4 Then Me.tc5 = Liste0.Column(1, 4)

End Sub

Sayın durkheim;
Kodunuz yukarıdaki gibi. Deneyip sonucu bildirebilir misiniz?