winsock-vb.net

[amala22]

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)

[josh.rice]

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)

Change it to

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)