Private Sub liste1_DblClick(Cancel As Integer)
Liste2.AddItem liste1.Column(1)
Liste2.AddItem liste1.Column(2) & " TL"
nasıl bir değişiklik yapmam gerekiyor?
Private Sub liste1_DblClick(Cancel As Integer)
Liste2.AddItem liste1.Column(1)
Liste2.AddItem liste1.Column(2) & " TL"
Private Sub liste1_DblClick(Cancel As Integer)
Liste2.AddItem liste1.Column(1) & ";" & liste1.Column(2) & ";" & "TL"
şeklinde dener misin?