[سوال] درخواست سورس listbox

[HamedFaa]

بفرما. دانلود

کد:

i = 0
cdOpen.fliter = "Text Document (*.txt)|*.txt"
cdOpen.ShowOpen
If cdOpen.FileName <> "" Then
    txtFileName.Text = cdOpen.FileName
    Dim intC As Integer: intC = 1
    Dim strAddToList As String
    Open cdOpen.FileName For Input As #1
        Do While Not EOF(1)
            Line Input #1, strAddToList
            If intC > 10 Then i = i + 1: intC = 1
            lstNames(i).AddItem strAddToList
            intC = intC + 1
        Loop
    Close #1
End If