NetConnect Example for VB.NET

'LEADDICOMNet1 is a predefined LEADDicomNet object
Private Sub LEADDICOMNet1_NetConnect(ByVal hNet As Integer, ByVal nStatus As Integer) Handles LEADDICOMNet1.NetConnect
   Dim strOut As String
   Dim strTemp As String
   Dim strPeerAddress As String
   Dim lPort As Integer

   strOut = "*** NetConnect Event *** " & Chr(13) & CStr(hNet) & " Status = " & CStr(nStatus)

   strPeerAddress = LEADDICOMNet1.GetPeerAddress(hNet)
   lPort = LEADDICOMNet1.GetPeerPort(hNet)

   strTemp = "PeerAddress = " & strPeerAddress & Chr(13) & "Port = " & CStr(lPort)
   strOut = strOut & Chr(13) & strTemp

   'MessageBox.Show ( strOut )
End Sub