Okay, so here it goes. I want to make my code create a thread for each user/password in a designated list. My code is as follows:
However, when I try to use it with 4 accounts loaded into the list, it MsgBox's the same thing four times rather than having each one with different info. Sorry if this explanation isn't clear and thanks for any advice.Code:Dim szTmpUser as String, szTmpPass as String --- Private Function Start() As Boolean Dim Threadx As Thread For i = 0 To (ListBox1.Items.Count - 1) ListBox1.SetSelected(i, True) ListBox2.SetSelected(i, True) szTmpUser = ListBox1.SelectedItem szTmpPass = ListBox2.SelectedItem Threadx = New Thread(AddressOf LoginUser) Threadx.Start() Next i End Function --- Private Sub LoginUser() Dim usr As String, pwd As String usr = szTmpUser pwd = szTmpPass MsgBox(usr & "-" & pwd) End Sub




Reply With Quote