Sub CagirOranKrs()

Dim Sayac, SW, KNT As Long

For SW = 1 To 4

        Me.Controls("ORAN" & IIf(SW = 1, Null, SW)) = 0

        Me.Controls("KARISIM_CINSI" & IIf(SW = 1, Null, SW)) = 0



Next SW

KNT = Me.Liste1.Column(1): SW = 0

For Sayac = 1 To Me.Liste1.ListCount

    If Me.Liste1.Column(1, Sayac) = KNT Then

        SW = SW + 1

        Me.Controls("ORAN" & IIf(SW = 1, Null, SW)) = Me.Liste1.Column(5, Sayac)

        Me.Controls("KARISIM_CINSI" & IIf(SW = 1, Null, SW)) = Me.Liste1.Column(6, Sayac)



    End If

Next Sayac

End Sub

yukarıdaki kodla sorun çözüldü.
liste kutusu tıklanma olayına 
call CagirOranKrs
yazılarak istenilen bilgiler forma getirildi.