[kslawy]

كود :

For X As Integer = 0 To 300
            If X = 100 Then L1.Items.Add(X)
            If X = 200 Then L2.Items.Add(X)
            If X = 300 Then L3.Items.Add(X)
            Application.DoEvents()
        Next