[SIM-3327349]

My code is still makes duplicates but I really don't know why.
Here is my code:
Spoiler (Click to View)

Code

Private Sub btnLogin_Click_1(sender As Object, e As EventArgs) Handles btnLogin.Click
        Dim trda As New Thread(Sub()
                                   Threading.Thread.Sleep(500)
                                   For Each acc In rtbAccounts.Lines
                                       If acc.Contains(":") Then
                                           Dim username As String = ""
                                           Dim password As String = ""
                                           Dim trd As New Thread(Sub()
                                                                     Dim tempBot As New Bot(checkUseProxy.Checked, rtbProxies, Me)

                                                                     username = acc.Split(":")(0)
                                                                     password = acc.Split(":")(1)

                                                                     AddAccountToList(username, "Loggin in..") 'This will add item to my ListView
                                                                     Debug.Print(username)
                                                                 End Sub)
                                           trd.IsBackground = True
                                           trd.Start()
                                       End If

                                       Thread.Sleep(500)
                                   Next
                               End Sub)
        trda.IsBackground = True
        trda.Start()
    End Sub

Here is screenshot of duplicates:
Spoiler (Click to View)



I found that this is working:
Spoiler (Click to View)

Code

sub btnClick
      dim trd as new thread(addressof dowork)
      trd.isbackground = true
      trd.start()
end sub

sub dowork
      for each account in rtbAccounts.lines
            Login(account)
            thread.sleep(100)
      next
end sub

sub Login(account as string)
      debug.print(account)
end sub

But this code is too long and I don't like it. I have many functions in my project and using this way for solving that problem is bad.

Please is anyone here, who can help me with that?
Thank you all in advance for help

[+Haze]

Why would it not make duplicates? You've done nothing to remove duplicates?

[SIM-3327349]

Why would it not make duplicates? You've done nothing to remove duplicates?

There are no duplicates in rtbAccounts so there should not be any duplicates

[WhyWork]

Count the amount of accounts before spawning threads. If that's not the case then idk

[SIM-3327349]

Count the amount of accounts before spawning threads. If that's not the case then idk

Amount of accounts is correct..

[+Haze]

There are no duplicates in rtbAccounts so there should not be any duplicates

My guess is that since you're using multiple threads, you do not lock access to the rtbAccounts control, this means that multiple threads can access the rtb at once. So look into thread locking/thread syncronisation I believe it's called.

https://www.dotnetperls.com/synclock-vbnet
So you'd want to synclock rtbAccounts
Try that and let me know how it goes

[SIM-3327349]

My guess is that since you're using multiple threads, you do not lock access to the rtbAccounts control, this means that multiple threads can access the rtb at once. So look into thread locking/thread syncronisation I believe it's called.

https://www.dotnetperls.com/synclock-vbnet
So you'd want to synclock rtbAccounts
Try that and let me know how it goes

It should help, but it didn't.. I tried SyncLock it almost everywhere, but without success.

---

That's weird. This code is working without problem https://pastebin.com/xUfTpmEv