Visual Basic

Public Function Rutina()
        Do
            If Ejecuto = True Then
                Exit Do
            End If
            'check if tcp has pending connections
            If TCP.Pending = True Then
                'If it has Pending, I assign it to the client of the server that will listen
                TCPSERVERCLI.Client = TCP.AcceptSocket
            End If
            If TCPSERVERCLI.Connected = True Then
                'Indicates that there is data pending collection
                If TCPSERVERCLI.Available > 0 Then
                    Dim DataBytes(1000) As Byte
                    'Now the decoder
                    Dim decode As New ASCIIEncoding
                    TCPSERVERCLI.Client.Receive(DataBytes)
                    'now I decode the bytes and pass them to the ListView
                    Me.LNetgames.Items.Add(decode.GetString(DataBytes))
                    End If
            End If
        Loop
    End Function

Is it possible to extract information from pdf document with vb6?
Thank you very much in advance

Story:

I have a ListBox where I add custom objects, when the user clicks these custom objects in that ListBox some WPF Controls are generated in a stackpanel, these WPF Controls are properties of the custom objects. Below you may see the class.

<pre>    Public Class VariableClass

        Public Property Content As String
        Public Property myNameLabel As New Label
        Public Property myNameTextBox As New ComboBox
        Public Property myTypeLabel As New Label
        Public Property myTypeTextBox As New ComboBox

        Public Overrides Function ToString() As String
            Return Content.ToString()
        End Function

    End Class

<pre>    Private Sub ValuePanel_PreviewKeyDown(sender As Object, e As KeyEventArgs) Handles ValuePanel.PreviewKeyDown
        Dim myElement As ComboBox = e.OriginalSource.TemplatedParent

        Dim myVar = GetValue(myElement).GetType().GetProperty("PropertyName")


    End Sub

i have code to combine two datatable. 
the code works fine in my test program, but when i copy it to my production program it gives me this error?

"{"Specified cast is not valid."}"
 here is the code and the error is in the for each loop.

<pre>    Private Sub CompareDataTables(ByVal dt1 As DataTable, ByVal dt2 As DataTable)

        Try
            Dim Results =
            (
           From table1 In dt1
           Join table2 In dt2 On table1.Field(Of Integer)(0) Equals table2.Field(Of Integer)(0)
           Where table1.Field(Of String)(1) <> table2.Field(Of String)(1) OrElse
                      table1.Field(Of String)(2) <> table2.Field(Of String)(2)
           Select table2)

            For Each row As DataRow In Results
                DataGridView3.Rows.Add(row.ItemArray)
            Next
            dtNew = Results

        Catch ex As Exception
            ErrorHandler.ErrHandler("CompareDataTables- Import_Customer")
        End Try

    End Sub

Public Sub GetDateInfo()
    Using conn As New SQLiteConnection($"Data Source = '{gv_dbName}';Version=3;")
        conn.Open()
        Using cmd As SQLiteCommand = New SQLiteCommand($"SELECT * FROM DateInfoTable WHERE DID = '1'", conn)
            Using rdr As SQLite.SQLiteDataReader = cmd.ExecuteReader
                While rdr.Read()
                    varSearchDate = CDate(rdr("diTESTdate"))
                End While
            End Using
        End Using
    End Using
End Sub

Public Sub testDates()

    GetDateInfo()

    'Other Option
    'ElseIf dateToday > varSearchDate And CInt(varSearchDate.ToString.Substring(0, 2)) = 12 Then
    '============================================================================================
    Dim dateToday = Date.Today
    Dim mo As String
    mo = dateToday.ToString("MM")
    'mo = varSearchDate.ToString("MM")
    'line above for testing for NOV

    If dateToday > varSearchDate And CInt(mo) <> 12 Then
        varFTue = CDate(FourthTueOfNextMonth(Date.Today).ToString("yyyy-M-d"))
        WriteNewFourthTue()
        gvTxType = "SS Deposit"
    ElseIf dateToday > varSearchDate And CInt(mo) = 12 Then
        varFTue = CDate(FourthTueOfNewYear(Date.Today).ToString("yyyy-M-d"))
        MsgBox("varFTue " & varFTue)
        WriteNewFourthTue()
        gvTxType = "SS Deposit"
    End If

End Sub

Function FourthTueOfNextMonth(dt As Date) As Date
    Dim currDate = New Date(dt.Year, dt.Month, 1)
    Dim nTuesday As Integer

    While nTuesday < 4
        If currDate.DayOfWeek = DayOfWeek.Tuesday Then
            nTuesday += 1
        End If
        currDate = currDate.AddDays(1)
    End While

    Return New Date(dt.Year, dt.Month, currDate.Day - 1)

End Function

Function FourthTueOfNewYear(dt As Date) As Date
    Dim currDate = New Date(dt.Year + 1, dt.Month - 11, 1)
    Dim nTuesday As Integer

    While nTuesday < 4
        If currDate.DayOfWeek = DayOfWeek.Tuesday Then
            nTuesday += 1
        End If
        currDate = currDate.AddDays(1)
    End While

    Return New Date(dt.Year + 1, dt.Month - 11, currDate.Day - 1)

End Function