AVG says my program is a key logger

[CCrawshaw]

I have an application which seems to cause AVG to detect a threat.
AVG says the threat is Trojan Horse PSW.KeyLogger.JJ but I cant find any more information on this.

Is there an error in my code somewhere that is causing this?

Cheers,
Chris

My code:

Imports System.Net.Sockets
Imports System.Text

Public Class templistener
    Dim ipaddress(3) As Byte ' = {10, 0, 0, 14} '[10] [0] [0] [14]
        
   

    Dim msg As String = "0000000000000000000000000000"
    Dim t As Integer = "00"
    Dim returndata As String = msg
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '   createListener()
        ' End Sub
        ' Public Sub createListener()
        

        '  Dim opensock As New Net.Sockets.TcpListener(New Net.IPAddress(ipaddress), 4000)
      
        Listener.RunWorkerAsync()


        't = 40 - (40 * CInt("&H" & (returndata.Substring(12, 2))) / 255)
        'temp.Text = t
    End Sub


    Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles Listener.DoWork
        ipaddress(0) = 10
        ipaddress(1) = 0
        ipaddress(2) = 0
        ipaddress(3) = 14

        Dim opensock As New Net.Sockets.TcpListener(New Net.IPAddress(ipaddress), 4000)

        Try
            opensock.Start()
        Catch ex As System.Net.Sockets.SocketException
            mess.Text = "cannot start connection"
        End Try
        Dim tcpClient As TcpClient = opensock.AcceptTcpClient()

        Listener.ReportProgress(1)
        


        Dim networkStream As NetworkStream = tcpClient.GetStream()
        If networkStream.CanWrite And networkStream.CanRead Then
            Listener.ReportProgress(2)
            Dim bytes(tcpClient.ReceiveBufferSize) As Byte
            networkStream.Read(bytes, 0, CInt(tcpClient.ReceiveBufferSize))
            returndata = Encoding.ASCII.GetString(bytes)

            
            'Console.WriteLine(("TCP Server returned: " + returndata))
        Else
            'returndata = msg
        End If
        'Listener.ReportProgress(returndata)
    End Sub


    Private Sub Listener_RunWorkerCompleted(ByVal sender As System.Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles Listener.RunWorkerCompleted
        t = 40 - (40 * CInt("&H" & (returndata.Substring(12, 2))) / 255)
        temp.Text = t
        comm.Text = returndata
    End Sub

    Private Sub Listener_ProgressChanged(ByVal sender As System.Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles Listener.ProgressChanged
        Select Case e.ProgressPercentage
            Case 1
                mess.Text = "connected"
                comm.Text = msg
            Case 2
                mess.Text = "Can read and write"
                mess.Text = "data received"
        End Select

    End Sub
End Class

 

[JohnH]

Either AVG is wrong, ie giving a false positive, or your computer is infected and causing programs you compile to get infected also.
A third option is that your app is referencing some library that is known as a keylogger.