i change that vb into vb.net.but there was no data arrival.
please tell me wht is the error in this code?


Private Sub Winsock12_DataArrival(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles Winsock12.DataArrival
Dim strdata As String
Static intmessages As Integer
Static intcurrentmessages As Integer
Static strbuffer As String
MsgBox("DATA 1IS ACCETED 11")
Winsock12.GetData(strdata)
TextBox4.Text = strdata



If m_state = pop3_states.pop3_RETR Then
MsgBox("DATA 1IS ACCETED ")
Select Case m_state

Case pop3_states.pop3_connect

intmessages = 0

m_state = pop3_states.pop3_USER

MsgBox("connected")

Winsock12.SendData("user " & txtusername.Text & vbCrLf)