Try this
Imports Keyence.AutoID.SDK
...
Dim m_reader As ReaderAccessor = New ReaderAccessor("192.168.111.104")
...
m_reader.Connect(AddressOf ReceivedDataAction)
...
Private Sub ReceivedDataAction(data As Byte())
'Define received data actions here.Defined actions work asynchronously.
'"ReceivedDataWrite" works when reading data was received.
BeginInvoke(New delegateUserControl(AddressOf ReceivedDataWrite), System.Text.Encoding.ASCII.GetString(data))
End Sub
...
m_reader.Dispose()
Make sure to install the run time C++ library SR SDK.
Referencing two Keyence.AutoID.SDK.dll & Communication.dll