Visual Basic

''To Start the thread
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ds1 As New DataSet
        Dim i As Integer = 0
        ds1 = clsDB.getData("Select * from Readers_test")
       
        Dim s As String = ds1.Tables(0).Rows(0)("Reader_Name").ToString + ":" + ds1.Tables(0).Rows(0)("IP_Address").ToString + ":" + ds1.Tables(0).Rows(0)("Port_No").ToString
    
        'thread1.IsBackground = True
        thread1.Start(s) ''I get exceptio here when I try to restart the thread
    
    End Sub

''To Stop the thread

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        
        api.TcpCloseConnect()

        If thread1.IsAlive Then
            thread1.Abort()
        End If
        setValue(Me.TextBox3, "Stopped")
    End Sub




    Private Sub startthread(ByVal state As Object)
      

        Dim timer1 As New System.Timers.Timer
        AddHandler timer1.Elapsed, AddressOf scan
        Dim st As String = state

        Dim status As Integer = 2
        Dim param_arr() As String = st.Split(":")
        Dim Location As String = param_arr(0)
        Dim ReaderIP As String = param_arr(1)
        Dim Port As String = param_arr(2)
        Dim ReaderPort As Integer = Integer.Parse(param_arr(2))

        
        status = api.TcpConnectReader(ReaderIP, ReaderPort)
  
        If status = 0 Then
           

            setValue(Me.TextBox1, "Connected")

            api.ClearIdBuf()
            timer1.Interval = 1000
            loc = Location

            clearbuf = 0
            timer1.Start()
        Else
            setValue(Me.TextBox1, "Not Connected")

        End If

    End Sub


    Public Sub scan(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs)
 
        Dim status As Integer = 2
        Dim i As Integer, j As Integer
        Dim IsoBuf As Byte(,) = New Byte(99, 13) {}
        Dim tag_cnt As Byte = 0
        Dim s As String = ""
        Dim s1 As String = ""
        Dim antno As Integer = 5
        Dim tagstatus As String = ""
        Dim tag_flag As Byte = 0
        Dim membank, wordptr, wordcnt As Integer
        membank = 1
        wordptr = 2
        wordcnt = 6
        'Dim value As Byte() = New Byte(15) {}
        Try
            
            status = api.EpcMultiTagIdentify(IsoBuf, tag_cnt, tag_flag)

            'If status1 = 0 Then
            If tag_cnt > 0 Then

                For i = 0 To tag_cnt - 1
                    s1 = String.Format("", TagCnt)
                    For j = 2 To 13
                        s = String.Format("{0:X2}", IsoBuf(i, j))
                        s1 += s
                    Next

                    'Next
                    antno = IsoBuf(i, 1)
                    clearbuf = clearbuf + 1
     
                    setValue(Me.TextBox2, s1)

           
                    If clearbuf = 1 Then
                        api.ClearIdBuf()
                        clearbuf = 0
                    End If
          

                Next

            End If

            TagCnt += 1
       

        Catch ex As Exception
            'MessageBox.Show(ex.ToString)
         
        End Try

    End Sub