i worked this code in vb6.it is working correctly.i want to change this codings in vb.net.
-----------------------
winsock connection occurs.but there is no data arrival occurs in vb.net.
here the vb code
------------------
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strData As String

Static intMessages As Integer 'the number of messages to be loaded
Static intCurrentMessage As Integer 'the counter of loaded messages
Static strBuffer As String 'the buffer of the loading message
'
'Save the received data into strData variable
Winsock1.GetData strData
Debug.Print strData

If Left$(strData, 1) = "+" Or m_State = POP3_RETR Then


Select Case m_State
Case POP3_Connect
intMessages = 0

m_State = POP3_USER
Winsock1.SendData "USER " & txtUserName & vbCrLf
Debug.Print "USER " & txtUserName
-----------------------
i want the codings in vb.net.please
with thanks
amala