.NET (Core and Framework)

'Initialize Socket
Private testSocket As Socket
'Open connexion
Public Sub OpenConnexion(ByVal addressIP As String, ByVal portNo As String, ByVal IPportType As String)
    Dim remoteIP As IPAddress = IPAddress.Parse(addressIP)
    Dim remotePort As Int32 = CInt(portNo)
    If IPportType = "TCP" Then
        testSocket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
        testSocket.BeginConnect(remoteIP, remotePort, AddressOf CheckConnection, Nothing)
    ElseIf IPportType = "UDP" Then
        testSocket = New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)
        testSocket.BeginConnect(remoteIP, remotePort, AddressOf CheckConnection, Nothing)
    End If
End Sub
'Connexion result event
Public Sub CheckConnection(ByVal ar As IAsyncResult)
    Try
        testSocket.EndConnect(ar)
        'CallDeviceConnected()
    Catch ex As Exception
        'CallDeviceDisconnected()
    End Try
End Sub

'Maximum no. of simultaneous connections
Private maxConnexions As Int32 = 10
'Initialize Socket
Private testSocketArr(maxConnexions) As Socket
'Open connexion
Public Sub OpenConnexionArr(ByVal index As Int32, ByVal addressIP As String, ByVal portNo As String, ByVal IPportType As String)
    Dim remoteIP As IPAddress = IPAddress.Parse(addressIP)
    Dim remotePort As Int32 = CInt(portNo)
    If IPportType = "TCP" Then
        testSocketArr(index) = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
        testSocketArr(index).BeginConnect(remoteIP, remotePort, AddressOf CheckConnectionArr, index)
    ElseIf IPportType = "UDP" Then
        testSocketArr(index) = New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)
        testSocketArr(index).BeginConnect(remoteIP, remotePort, AddressOf CheckConnectionArr, index)
    End If
End Sub

public void UpdateProduct(Product product, Category category, Model model)<br />
{<br />
    Product target = _context.Product.FirstOrDefault(a => a.ProductID == product.ProductID);<br />
    _context.ApplyPropertyChanges("Product", product);<br />
    _context.SaveChanges();<br />
}

 Private Sub ListView1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged

lstestacoes.Clear()
lstestacoes.View = View.LargeIcon
Try
If con.State = ConnectionState.Open Then con.Close()
con.Open()
Dim ind As Integer
Dim temp As String

For Each item As ListViewItem In ListView1.SelectedItems
If item.Selected = True Then

temp = item.SubItems(0).Text
itemSelected = item.SubItems(0).Text
Dim cmd As New OleDbCommand("select * from Estacao WHERE idGrupo= '" & temp & "'", con)

Dim drdr As OleDbDataReader
drdr = cmd.ExecuteReader
If drdr.Read() Then
ind = ind + 1
Dim i As New ListViewItem(ind)
i.Text = drdr.Item("Nome")
i.ImageIndex = 0
lstestacoes.Items.AddRange(New ListViewItem() {i})

Else
cmd.Cancel()
con.Close()
End If
End If
Next item


Catch ex As Exception
MsgBox(ex.Message)
End Try

End Sub