Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Sub ThreadStart() Dim alParam As New ArrayList Dim paramTS As New ParameterizedThreadStart(AddressOf mySub) Dim t1 As Thread = Nothing Dim t2 As Thread = Nothing Dim t3 As Thread = Nothing 'Create parameter array for the thread Dim d1 As New SelectSheet d1.lblSelectSheet.Text = "Please put in file 1 name" d1.ShowDialog() alParam.Add(d1.lstSelectSheet.SelectedItem.ToString()) alParam.Add(True) 'for blnRateAll alParam.Add(True) 'for blnFirstPass alParam.Add(False) 'for blnSecondPass alParam.Add(False) 'for blnFinalPass d1.Dispose() t1 = New Thread(paramTS) t1.Start(alParam) Dim d2 As New SelectSheet d2.lblSelectSheet.Text = "Please put in file 2 name" d2.ShowDialog() alParam(0) = d2.lstSelectSheet.SelectedItem.ToString() alParam(2) = False : alParam(3) = True t2 = New Thread(paramTS) t2.Start(alParam) Dim d3 As New SelectSheet d1.lblSelectSheet.Text = "Please put in file 3 name" d3.ShowDialog() alParam(0) = d3.lstSelectSheet.SelectedItem.ToString() alParam(3) = False : alParam(4) = True t3 = New Thread(paramTS) t1.Start(alParam) End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.