Kod:
Dim i, a, b, c As String
Me.Liste4.RowSource = ""
i = Me.Liste2.Column(1)
a = Me.Liste2.Column(2)
b = Me.Liste2.Column(3)
c = Me.Liste2.Column(4)
Me.Liste4.AddItem a & ";" & b & "-" & c & "-" & i
Sn. Hayri16, neredeyse tamamen aynı şekilde yazmışız İyi Geceler.