Kod:
Private Sub Komut0_Click()
For z = 0 To Liste0.ListCount - 1
If Left(Liste0.ItemData(z), 1) = Metin0.Value Then
MsgBox Liste0.ItemData(z)
End If
Next
End Sub
Private Sub Komut0_Click()
For z = 0 To Liste0.ListCount - 1
If Left(Liste0.ItemData(z), 1) = Metin0.Value Then
MsgBox Liste0.ItemData(z)
End If
Next
End Sub