GetServer Example for VB.NET

'LEADDICOMNet1 is a predefined LEADDicomNet object
Private Sub LEADDICOMNet1_NetReceiveAssociateRequest(ByVal hNet As Integer, ByVal hPDU As Integer) Handles LEADDICOMNet1.NetReceiveAssociateRequest
   Dim hServer As Integer
   Dim szServer As String
   Dim lPort As Integer

   hServer = LEADDICOMNet1.GetServer(hNet)
   If (hServer <> 0) Then
      szServer = LEADDICOMNet1.GetHostAddress(hServer)
      lPort = LEADDICOMNet1.GetHostPort(hServer)
      MessageBox.Show("Server = " & szServer & " Port = " & CStr(lPort))
   End If
End Sub